1 files changed, 6 insertions, 0 deletions
diff --git a/Game/Code/Classes/ULyrics.pas b/Game/Code/Classes/ULyrics.pas
index c3b440bc..105f36d1 100644
--- a/Game/Code/Classes/ULyrics.pas
+++ b/Game/Code/Classes/ULyrics.pas
@@ -70,6 +70,7 @@ type
       property FontStyle: integer write SetFStyle;
       procedure AddWord(Text: string);
       procedure AddCzesc(NrCzesci: integer);
+      procedure ChangeCurText(Text: String);
 
       function SelectedLetter: integer;  // LCD
       function SelectedLength: integer;  // LCD
@@ -380,4 +381,9 @@ begin
   Result := Length(Word[SelectedI].Text);
 end;
 
+procedure TLyric.ChangeCurText(Text: String);
+begin
+  Word[Selected].Text := Text;
+end;
+
 end.