Translated Variable Names and Types

TCzesci to TLines
TMuzyka to TMelody
HighNut to HighNote
Nuta    to Note
Czesc   to Line

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@913 b956fd51-792f-4845-bead-9b4dfca2ff2c

4 files changed, 387 insertions, 387 deletions

diff --git a/Game/Code/Screens/UScreenEditConvert.pas b/Game/Code/Screens/UScreenEditConvert.pas
index 16717419..5887943c 100644
--- a/Game/Code/Screens/UScreenEditConvert.pas
+++ b/Game/Code/Screens/UScreenEditConvert.pas
@@ -70,10 +70,10 @@ type
       {$ENDIF}
       
       Song:               TSong;
-      Czesc:              TCzesci;
+      Lines:              TLines;
       BPM:                real;
       Ticks:              real;
-      Nuta:               array of TNuta;
+      Note:               array of TNuta;
 
       procedure AddLyric(Start: integer; Tekst: string);
       procedure Extract;
@@ -161,7 +161,7 @@ begin
           if Interaction = 3 then begin
             if SelectedNumber > 0 then begin
               Extract;
-              SaveSong(Song, Czesc, ChangeFileExt(FileName, '.txt'), false);
+              SaveSong(Song, Lines, ChangeFileExt(FileName, '.txt'), false);
             end;
           end;
 
@@ -209,20 +209,20 @@ procedure TScreenEditConvert.AddLyric(Start: integer; Tekst: string);
 var
   N:    integer;
 begin
-  for N := 0 to High(Nuta) do begin
-    if Nuta[N].Start = Start then begin
+  for N := 0 to High(Note) do begin
+    if Note[N].Start = Start then begin
       // check for new sentece
       if Copy(Tekst, 1, 1) = '\' then Delete(Tekst, 1, 1);
       if Copy(Tekst, 1, 1) = '/' then begin
         Delete(Tekst, 1, 1);
-        Nuta[N].NewSentence := true;
+        Note[N].NewSentence := true;
       end;
 
       // overwrite lyric od append
-      if Nuta[N].Lyric = '-' then
-        Nuta[N].Lyric := Tekst
+      if Note[N].Lyric = '-' then
+        Note[N].Lyric := Tekst
       else
-        Nuta[N].Lyric := Nuta[N].Lyric + Tekst;
+        Note[N].Lyric := Note[N].Lyric + Tekst;
     end;
   end;
 end;
@@ -233,7 +233,7 @@ var
   C:    integer;
   N:    integer;
   Nu:   integer;
-  NutaTemp: TNuta;
+  NoteTemp: TNuta;
   Move: integer;
   Max, Min: integer;
 begin
@@ -245,7 +245,7 @@ begin
   SetLength(Song.BPM, 1);
   Song.BPM[0].BPM := BPM*4;
 
-  SetLength(Nuta, 0);
+  SetLength(Note, 0);
 
   // extract notes
   for T := 0 to High(ATrack) do begin
@@ -253,12 +253,12 @@ begin
     if ((ATrack[T].Status div 1) and 1) = 1 then begin
       for N := 0 to High(ATrack[T].Note) do begin
         if (ATrack[T].Note[N].EventType = 9) and (ATrack[T].Note[N].Data2 > 0) then begin
-          Nu := Length(Nuta);
-          SetLength(Nuta, Nu + 1);
-          Nuta[Nu].Start := Round(ATrack[T].Note[N].Start / Ticks);
-          Nuta[Nu].Len := Round(ATrack[T].Note[N].Len / Ticks);
-          Nuta[Nu].Tone := ATrack[T].Note[N].Data1 - 12*5;
-          Nuta[Nu].Lyric := '-';
+          Nu := Length(Note);
+          SetLength(Note, Nu + 1);
+          Note[Nu].Start := Round(ATrack[T].Note[N].Start / Ticks);
+          Note[Nu].Len := Round(ATrack[T].Note[N].Len / Ticks);
+          Note[Nu].Tone := ATrack[T].Note[N].Data1 - 12*5;
+          Note[Nu].Lyric := '-';
         end;
       end;
     end;
@@ -278,56 +278,56 @@ begin
   end;
 
   // sort notes
-  for N := 0 to High(Nuta) do
-    for Nu := 0 to High(Nuta)-1 do
-      if Nuta[Nu].Start > Nuta[Nu+1].Start then begin
-        NutaTemp := Nuta[Nu];
-        Nuta[Nu] := Nuta[Nu+1];
-        Nuta[Nu+1] := NutaTemp;
+  for N := 0 to High(Note) do
+    for Nu := 0 to High(Note)-1 do
+      if Note[Nu].Start > Note[Nu+1].Start then begin
+        NoteTemp := Note[Nu];
+        Note[Nu] := Note[Nu+1];
+        Note[Nu+1] := NoteTemp;
       end;
 
   // move to 0 at beginning
-  Move := Nuta[0].Start;
-  for N := 0 to High(Nuta) do
-    Nuta[N].Start := Nuta[N].Start - Move;
+  Move := Note[0].Start;
+  for N := 0 to High(Note) do
+    Note[N].Start := Note[N].Start - Move;
 
   // copy notes
-  SetLength(Czesc.Czesc, 1);
-  Czesc.Ilosc := 1;
-  Czesc.High := 0;
+  SetLength(Lines.Line, 1);
+  Lines.Ilosc := 1;
+  Lines.High := 0;
 
   C := 0;
   N := 0;
-  Czesc.Czesc[C].IlNut := 0;
-  Czesc.Czesc[C].HighNut := -1;
-
-  for Nu := 0 to High(Nuta) do begin
-    if Nuta[Nu].NewSentence then begin // nowa linijka
-      SetLength(Czesc.Czesc, Length(Czesc.Czesc)+1);
-      Czesc.Ilosc := Czesc.Ilosc + 1;
-      Czesc.High := Czesc.High + 1;
+  Lines.Line[C].IlNut := 0;
+  Lines.Line[C].HighNote := -1;
+
+  for Nu := 0 to High(Note) do begin
+    if Note[Nu].NewSentence then begin // nowa linijka
+      SetLength(Lines.Line, Length(Lines.Line)+1);
+      Lines.Ilosc := Lines.Ilosc + 1;
+      Lines.High := Lines.High + 1;
       C := C + 1;
       N := 0;
-      SetLength(Czesc.Czesc[C].Nuta, 0);
-      Czesc.Czesc[C].IlNut := 0;
-      Czesc.Czesc[C].HighNut := -1;
+      SetLength(Lines.Line[C].Note, 0);
+      Lines.Line[C].IlNut := 0;
+      Lines.Line[C].HighNote := -1;
 
       //Calculate Start of the Last Sentence
       if (C > 0) and (Nu > 0) then
       begin
-        Max := Nuta[Nu].Start;
-        Min := Nuta[Nu-1].Start + Nuta[Nu-1].Len;
+        Max := Note[Nu].Start;
+        Min := Note[Nu-1].Start + Note[Nu-1].Len;
         
         case (Max - Min) of
-          0:    Czesc.Czesc[C].Start := Max;
-          1:    Czesc.Czesc[C].Start := Max;
-          2:    Czesc.Czesc[C].Start := Max - 1;
-          3:    Czesc.Czesc[C].Start := Max - 2;
+          0:    Lines.Line[C].Start := Max;
+          1:    Lines.Line[C].Start := Max;
+          2:    Lines.Line[C].Start := Max - 1;
+          3:    Lines.Line[C].Start := Max - 2;
           else
             if ((Max - Min) > 4) then
-              Czesc.Czesc[C].Start := Min + 2
+              Lines.Line[C].Start := Min + 2
             else
-              Czesc.Czesc[C].Start := Max;
+              Lines.Line[C].Start := Max;
 
         end; // case
 
@@ -335,17 +335,17 @@ begin
     end;
 
     // tworzy miejsce na nowa nute
-    SetLength(Czesc.Czesc[C].Nuta, Length(Czesc.Czesc[C].Nuta)+1);
-    Czesc.Czesc[C].IlNut := Czesc.Czesc[C].IlNut + 1;
-    Czesc.Czesc[C].HighNut := Czesc.Czesc[C].HighNut + 1;
+    SetLength(Lines.Line[C].Note, Length(Lines.Line[C].Note)+1);
+    Lines.Line[C].IlNut := Lines.Line[C].IlNut + 1;
+    Lines.Line[C].HighNote := Lines.Line[C].HighNote + 1;
 
     // dopisuje
-    Czesc.Czesc[C].Nuta[N].Start := Nuta[Nu].Start;
-    Czesc.Czesc[C].Nuta[N].Dlugosc := Nuta[Nu].Len;
-    Czesc.Czesc[C].Nuta[N].Ton := Nuta[Nu].Tone;
-    Czesc.Czesc[C].Nuta[N].Tekst := Nuta[Nu].Lyric;
+    Lines.Line[C].Note[N].Start := Note[Nu].Start;
+    Lines.Line[C].Note[N].Dlugosc := Note[Nu].Len;
+    Lines.Line[C].Note[N].Ton := Note[Nu].Tone;
+    Lines.Line[C].Note[N].Tekst := Note[Nu].Lyric;
     //All Notes are Freestyle when Converted Fix:
-    Czesc.Czesc[C].Nuta[N].Wartosc := 1;
+    Lines.Line[C].Note[N].Wartosc := 1;
     Inc(N);
   end;
 end;
diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index f4a2e40b..ea1642c3 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -134,9 +134,9 @@ begin
       SDLK_BACKQUOTE:
         begin
           // Increase Note Length (same as Alt + Right)
-          Inc(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Dlugosc);
-          if AktNuta = Czesci[0].Czesc[Czesci[0].Akt].HighNut then
-            Inc(Czesci[0].Czesc[Czesci[0].Akt].Koniec);
+          Inc(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Dlugosc);
+          if AktNuta = Lines[0].Line[Lines[0].Akt].HighNote then
+            Inc(Lines[0].Line[Lines[0].Akt].Koniec);
         end;
 
       SDLK_EQUALS:
@@ -207,7 +207,7 @@ begin
 
           if SDL_ModState = KMOD_LSHIFT then begin
             // Join next sentence with current
-            if Czesci[0].Akt < Czesci[0].High  then
+            if Lines[0].Akt < Lines[0].High  then
               JoinSentence;
           end;
 
@@ -222,13 +222,13 @@ begin
         begin
           // Save Song
           if SDL_ModState = KMOD_LSHIFT then
-            SaveSong(CurrentSong, Czesci[0], CurrentSong.Path + CurrentSong.FileName, true)
+            SaveSong(CurrentSong, Lines[0], CurrentSong.Path + CurrentSong.FileName, true)
           else
-            SaveSong(CurrentSong, Czesci[0], CurrentSong.Path + CurrentSong.FileName, false);
+            SaveSong(CurrentSong, Lines[0], CurrentSong.Path + CurrentSong.FileName, false);
 
           {if SDL_ModState = KMOD_LSHIFT or KMOD_LCTRL + KMOD_LALT then
             // Save Song
-            SaveSongDebug(CurrentSong, Czesci[0], 'C:\song.asm', false);}
+            SaveSongDebug(CurrentSong, Lines[0], 'C:\song.asm', false);}
 
         end;
 
@@ -263,42 +263,42 @@ begin
         begin
           // Paste text
           if SDL_ModState = KMOD_LCTRL then begin
-            if Czesci[0].Czesc[Czesci[0].Akt].IlNut >= Czesci[0].Czesc[CopySrc].IlNut then
+            if Lines[0].Line[Lines[0].Akt].IlNut >= Lines[0].Line[CopySrc].IlNut then
               PasteText
             else
               beep;
           end;
 
           if SDL_ModState = KMOD_LCTRL + KMOD_LSHIFT then begin
-            CopySentence(CopySrc, Czesci[0].Akt);
+            CopySentence(CopySrc, Lines[0].Akt);
           end;
         end;
 
       SDLK_4:
         begin
           if SDL_ModState = KMOD_LCTRL + KMOD_LSHIFT then begin
-            CopySentence(CopySrc, Czesci[0].Akt);
-            CopySentence(CopySrc+1, Czesci[0].Akt+1);
-            CopySentence(CopySrc+2, Czesci[0].Akt+2);
-            CopySentence(CopySrc+3, Czesci[0].Akt+3);
+            CopySentence(CopySrc, Lines[0].Akt);
+            CopySentence(CopySrc+1, Lines[0].Akt+1);
+            CopySentence(CopySrc+2, Lines[0].Akt+2);
+            CopySentence(CopySrc+3, Lines[0].Akt+3);
           end;
 
           if SDL_ModState = KMOD_LCTRL + KMOD_LSHIFT + KMOD_LALT then begin
-            CopySentences(CopySrc, Czesci[0].Akt, 4);
+            CopySentences(CopySrc, Lines[0].Akt, 4);
           end;
         end;
       SDLK_5:
         begin
           if SDL_ModState = KMOD_LCTRL + KMOD_LSHIFT then begin
-            CopySentence(CopySrc, Czesci[0].Akt);
-            CopySentence(CopySrc+1, Czesci[0].Akt+1);
-            CopySentence(CopySrc+2, Czesci[0].Akt+2);
-            CopySentence(CopySrc+3, Czesci[0].Akt+3);
-            CopySentence(CopySrc+4, Czesci[0].Akt+4);
+            CopySentence(CopySrc, Lines[0].Akt);
+            CopySentence(CopySrc+1, Lines[0].Akt+1);
+            CopySentence(CopySrc+2, Lines[0].Akt+2);
+            CopySentence(CopySrc+3, Lines[0].Akt+3);
+            CopySentence(CopySrc+4, Lines[0].Akt+4);
           end;
 
           if SDL_ModState = KMOD_LCTRL + KMOD_LSHIFT + KMOD_LALT then begin
-            CopySentences(CopySrc, Czesci[0].Akt, 5);
+            CopySentences(CopySrc, Lines[0].Akt, 5);
           end;
         end;
 
@@ -320,11 +320,11 @@ begin
             // Play Sentence
             Click := true;
             AudioPlayback.Stop;
-            R := GetTimeFromBeat(Czesci[0].Czesc[Czesci[0].Akt].StartNote);
+            R := GetTimeFromBeat(Lines[0].Line[Lines[0].Akt].StartNote);
             if R <= AudioPlayback.Length then
             begin
               AudioPlayback.Position := R;
-              PlayStopTime := GetTimeFromBeat(Czesci[0].Czesc[Czesci[0].Akt].Koniec);
+              PlayStopTime := GetTimeFromBeat(Lines[0].Line[Lines[0].Akt].Koniec);
               PlaySentence := true;
               AudioPlayback.Play;
               LastClick := -100;
@@ -335,23 +335,23 @@ begin
             PlaySentenceMidi := true;
 
             MidiTime := USTime.GetTime;
-            MidiStart := GetTimeFromBeat(Czesci[0].Czesc[Czesci[0].Akt].StartNote);
-            MidiStop := GetTimeFromBeat(Czesci[0].Czesc[Czesci[0].Akt].Koniec);
+            MidiStart := GetTimeFromBeat(Lines[0].Line[Lines[0].Akt].StartNote);
+            MidiStop := GetTimeFromBeat(Lines[0].Line[Lines[0].Akt].Koniec);
 
             LastClick := -100;
           end;
           if SDL_ModState = KMOD_LSHIFT or KMOD_LCTRL then begin
             PlaySentenceMidi := true;
             MidiTime  := USTime.GetTime;
-            MidiStart := GetTimeFromBeat(Czesci[0].Czesc[Czesci[0].Akt].StartNote);
-            MidiStop  := GetTimeFromBeat(Czesci[0].Czesc[Czesci[0].Akt].Koniec);
+            MidiStart := GetTimeFromBeat(Lines[0].Line[Lines[0].Akt].StartNote);
+            MidiStop  := GetTimeFromBeat(Lines[0].Line[Lines[0].Akt].Koniec);
             LastClick := -100;
 
             PlaySentence := true;
             Click := true;
             AudioPlayback.Stop;
-            AudioPlayback.Position := GetTimeFromBeat(Czesci[0].Czesc[Czesci[0].Akt].StartNote)+0{-0.10};
-            PlayStopTime := GetTimeFromBeat(Czesci[0].Czesc[Czesci[0].Akt].Koniec)+0;
+            AudioPlayback.Position := GetTimeFromBeat(Lines[0].Line[Lines[0].Akt].StartNote)+0{-0.10};
+            PlayStopTime := GetTimeFromBeat(Lines[0].Line[Lines[0].Akt].Koniec)+0;
             AudioPlayback.Play;
             LastClick := -100;
           end;
@@ -364,10 +364,10 @@ begin
           PlaySentence := true;
           Click := false;
           AudioPlayback.Stop;
-          AudioPlayback.Position := GetTimeFromBeat(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Start);
+          AudioPlayback.Position := GetTimeFromBeat(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Start);
           PlayStopTime := (GetTimeFromBeat(
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Start +
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Dlugosc));
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Start +
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Dlugosc));
           AudioPlayback.Play;
           LastClick := -100;
         end;
@@ -398,41 +398,41 @@ begin
         begin
           // right
           if SDL_ModState = 0 then begin
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0;
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 0;
             Inc(AktNuta);
-            if AktNuta = Czesci[0].Czesc[Czesci[0].Akt].IlNut then AktNuta := 0;
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 1;
+            if AktNuta = Lines[0].Line[Lines[0].Akt].IlNut then AktNuta := 0;
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 1;
             Lyric.Selected := AktNuta;
           end;
 
           // ctrl + right
           if SDL_ModState = KMOD_LCTRL then begin
-            if Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Dlugosc > 1 then begin
-              Dec(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Dlugosc);
-              Inc(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Start);
+            if Lines[0].Line[Lines[0].Akt].Note[AktNuta].Dlugosc > 1 then begin
+              Dec(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Dlugosc);
+              Inc(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Start);
               if AktNuta = 0 then begin
-                Inc(Czesci[0].Czesc[Czesci[0].Akt].Start);
-                Inc(Czesci[0].Czesc[Czesci[0].Akt].StartNote);
+                Inc(Lines[0].Line[Lines[0].Akt].Start);
+                Inc(Lines[0].Line[Lines[0].Akt].StartNote);
               end;
             end;
           end;
 
           // shift + right
           if SDL_ModState = KMOD_LSHIFT then begin
-            Inc(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Start);
+            Inc(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Start);
             if AktNuta = 0 then begin
-              Inc(Czesci[0].Czesc[Czesci[0].Akt].Start);
-              Inc(Czesci[0].Czesc[Czesci[0].Akt].StartNote);
+              Inc(Lines[0].Line[Lines[0].Akt].Start);
+              Inc(Lines[0].Line[Lines[0].Akt].StartNote);
             end;
-            if AktNuta = Czesci[0].Czesc[Czesci[0].Akt].HighNut then
-              Inc(Czesci[0].Czesc[Czesci[0].Akt].Koniec);
+            if AktNuta = Lines[0].Line[Lines[0].Akt].HighNote then
+              Inc(Lines[0].Line[Lines[0].Akt].Koniec);
           end;
 
           // alt + right
           if SDL_ModState = KMOD_LALT then begin
-            Inc(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Dlugosc);
-            if AktNuta = Czesci[0].Czesc[Czesci[0].Akt].HighNut then
-              Inc(Czesci[0].Czesc[Czesci[0].Akt].Koniec);
+            Inc(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Dlugosc);
+            if AktNuta = Lines[0].Line[Lines[0].Akt].HighNote then
+              Inc(Lines[0].Line[Lines[0].Akt].Koniec);
           end;
 
           // alt + ctrl + shift + right = move all from cursor to right
@@ -446,44 +446,44 @@ begin
         begin
           // left
           if SDL_ModState = 0 then begin
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0;
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 0;
             Dec(AktNuta);
-            if AktNuta = -1 then AktNuta := Czesci[0].Czesc[Czesci[0].Akt].HighNut;
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 1;
+            if AktNuta = -1 then AktNuta := Lines[0].Line[Lines[0].Akt].HighNote;
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 1;
             Lyric.Selected := AktNuta;
           end;
 
           // ctrl + left
           if SDL_ModState = KMOD_LCTRL then begin
-            Dec(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Start);
-            Inc(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Dlugosc);
+            Dec(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Start);
+            Inc(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Dlugosc);
             if AktNuta = 0 then begin
-              Dec(Czesci[0].Czesc[Czesci[0].Akt].Start);
-              Dec(Czesci[0].Czesc[Czesci[0].Akt].StartNote);
+              Dec(Lines[0].Line[Lines[0].Akt].Start);
+              Dec(Lines[0].Line[Lines[0].Akt].StartNote);
             end;
           end;
 
           // shift + left
           if SDL_ModState = KMOD_LSHIFT then begin
-            Dec(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Start);
+            Dec(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Start);
 
             // resizing sentences
             if AktNuta = 0 then begin
-              Dec(Czesci[0].Czesc[Czesci[0].Akt].Start);
-              Dec(Czesci[0].Czesc[Czesci[0].Akt].StartNote);
+              Dec(Lines[0].Line[Lines[0].Akt].Start);
+              Dec(Lines[0].Line[Lines[0].Akt].StartNote);
             end;
 
-            if AktNuta = Czesci[0].Czesc[Czesci[0].Akt].HighNut then
-              Dec(Czesci[0].Czesc[Czesci[0].Akt].Koniec);
+            if AktNuta = Lines[0].Line[Lines[0].Akt].HighNote then
+              Dec(Lines[0].Line[Lines[0].Akt].Koniec);
 
           end;
 
           // alt + left
           if SDL_ModState = KMOD_LALT then begin
-            if Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Dlugosc > 1 then begin
-              Dec(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Dlugosc);
-              if AktNuta = Czesci[0].Czesc[Czesci[0].Akt].HighNut then
-                Dec(Czesci[0].Czesc[Czesci[0].Akt].Koniec);
+            if Lines[0].Line[Lines[0].Akt].Note[AktNuta].Dlugosc > 1 then begin
+              Dec(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Dlugosc);
+              if AktNuta = Lines[0].Line[Lines[0].Akt].HighNote then
+                Dec(Lines[0].Line[Lines[0].Akt].Koniec);
             end;
           end;
 
@@ -499,16 +499,16 @@ begin
           {$IFDEF UseMIDIPort}
           // skip to next sentence
           if SDL_ModState = 0 then begin
-            MidiOut.PutShort($81, Czesci[0].Czesc[Czesci[0].Akt].Nuta[MidiLastNote].Ton + 60, 127);
+            MidiOut.PutShort($81, Lines[0].Line[Lines[0].Akt].Note[MidiLastNote].Ton + 60, 127);
             PlaySentenceMidi := false;
 
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0;
-            Inc(Czesci[0].Akt);
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 0;
+            Inc(Lines[0].Akt);
             AktNuta := 0;
-            if Czesci[0].Akt > Czesci[0].High then Czesci[0].Akt := 0;
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 1;
+            if Lines[0].Akt > Lines[0].High then Lines[0].Akt := 0;
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 1;
 
-            Lyric.AddCzesc(Czesci[0].Akt);
+            Lyric.AddCzesc(Lines[0].Akt);
             Lyric.Selected := 0;
             AudioPlayback.Stop;
             PlaySentence := false;
@@ -527,16 +527,16 @@ begin
           {$IFDEF UseMIDIPort}
           // skip to previous sentence
           if SDL_ModState = 0 then begin
-            MidiOut.PutShort($81, Czesci[0].Czesc[Czesci[0].Akt].Nuta[MidiLastNote].Ton + 60, 127);
+            MidiOut.PutShort($81, Lines[0].Line[Lines[0].Akt].Note[MidiLastNote].Ton + 60, 127);
             PlaySentenceMidi := false;
 
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0;
-            Dec(Czesci[0].Akt);
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 0;
+            Dec(Lines[0].Akt);
             AktNuta := 0;
-            if Czesci[0].Akt = -1 then Czesci[0].Akt := Czesci[0].High;
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 1;
+            if Lines[0].Akt = -1 then Lines[0].Akt := Lines[0].High;
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 1;
 
-            Lyric.AddCzesc(Czesci[0].Akt);
+            Lyric.AddCzesc(Lines[0].Akt);
             Lyric.Selected := 0;
             AudioPlayback.Stop;
             PlaySentence := false;
@@ -552,27 +552,27 @@ begin
       // Golden Note Patch
       SDLK_G:
         begin
-          case Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Wartosc of
-            0: Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Wartosc := 2;
-            1: Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Wartosc := 2;
-            2: Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Wartosc := 1;
+          case Lines[0].Line[Lines[0].Akt].Note[AktNuta].Wartosc of
+            0: Lines[0].Line[Lines[0].Akt].Note[AktNuta].Wartosc := 2;
+            1: Lines[0].Line[Lines[0].Akt].Note[AktNuta].Wartosc := 2;
+            2: Lines[0].Line[Lines[0].Akt].Note[AktNuta].Wartosc := 1;
           end; // case
-          Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Freestyle := False;
+          Lines[0].Line[Lines[0].Akt].Note[AktNuta].Freestyle := False;
         end;
 
       // Freestyle Note Patch
       SDLK_F:
         begin
-           case Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Wartosc of
+           case Lines[0].Line[Lines[0].Akt].Note[AktNuta].Wartosc of
             0:
             begin;
-              Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Wartosc := 1;
-              Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Freestyle := False;
+              Lines[0].Line[Lines[0].Akt].Note[AktNuta].Wartosc := 1;
+              Lines[0].Line[Lines[0].Akt].Note[AktNuta].Freestyle := False;
             end;
             1,2:
             begin;
-              Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Wartosc := 0;
-              Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Freestyle := True;
+              Lines[0].Line[Lines[0].Akt].Note[AktNuta].Wartosc := 0;
+              Lines[0].Line[Lines[0].Akt].Note[AktNuta].Freestyle := True;
             end;
           end; // case
 
@@ -609,22 +609,22 @@ begin
         end;
       SDLK_0..SDLK_9, SDLK_A..SDLK_Z, SDLK_SPACE, SDLK_MINUS, SDLK_EXCLAIM, SDLK_COMMA, SDLK_SLASH, SDLK_ASTERISK, SDLK_QUESTION, SDLK_QUOTE, SDLK_QUOTEDBL:
         begin
-          Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst :=
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst + chr(ScanCode);
+          Lines[0].Line[Lines[0].Akt].Note[AktNuta].Tekst :=
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Tekst + chr(ScanCode);
         end;
       SDLK_BACKSPACE:
         begin
-          Delete(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst,
-            Length(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst), 1);
+          Delete(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Tekst,
+            Length(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Tekst), 1);
         end;
       SDLK_RIGHT:
         begin
           // right
           if SDL_ModState = 0 then begin
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0;
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 0;
             Inc(AktNuta);
-            if AktNuta = Czesci[0].Czesc[Czesci[0].Akt].IlNut then AktNuta := 0;
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 1;
+            if AktNuta = Lines[0].Line[Lines[0].Akt].IlNut then AktNuta := 0;
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 1;
             Lyric.Selected := AktNuta;
           end;
         end;
@@ -632,10 +632,10 @@ begin
         begin
           // left
           if SDL_ModState = 0 then begin
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0;
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 0;
             Dec(AktNuta);
-            if AktNuta = -1 then AktNuta := Czesci[0].Czesc[Czesci[0].Akt].HighNut;
-            Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 1;
+            if AktNuta = -1 then AktNuta := Lines[0].Line[Lines[0].Akt].HighNote;
+            Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 1;
             Lyric.Selected := AktNuta;
           end;
       end;
@@ -646,8 +646,8 @@ end;
 procedure TScreenEditSub.NewBeat;
 begin
     // click
-{    for Pet := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do
-  if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Start = Czas.AktBeat) then begin
+{    for Pet := 0 to Lines[0].Line[Lines[0].Akt].HighNut do
+  if (Lines[0].Line[Lines[0].Akt].Note[Pet].Start = Czas.AktBeat) then begin
       // old}
 //    Music.PlayClick;
 end;
@@ -658,13 +658,13 @@ var
   N:    integer;
 begin                    
   CurrentSong.BPM[0].BPM := CurrentSong.BPM[0].BPM / 2;
-  for C := 0 to Czesci[0].High do begin
-    Czesci[0].Czesc[C].Start :=     Czesci[0].Czesc[C].Start div 2;
-    Czesci[0].Czesc[C].StartNote := Czesci[0].Czesc[C].StartNote div 2;
-    Czesci[0].Czesc[C].Koniec :=    Czesci[0].Czesc[C].Koniec div 2;
-    for N := 0 to Czesci[0].Czesc[C].HighNut do begin
-      Czesci[0].Czesc[C].Nuta[N].Start :=   Czesci[0].Czesc[C].Nuta[N].Start div 2;
-      Czesci[0].Czesc[C].Nuta[N].Dlugosc := Round(Czesci[0].Czesc[C].Nuta[N].Dlugosc / 2);
+  for C := 0 to Lines[0].High do begin
+    Lines[0].Line[C].Start :=     Lines[0].Line[C].Start div 2;
+    Lines[0].Line[C].StartNote := Lines[0].Line[C].StartNote div 2;
+    Lines[0].Line[C].Koniec :=    Lines[0].Line[C].Koniec div 2;
+    for N := 0 to Lines[0].Line[C].HighNote do begin
+      Lines[0].Line[C].Note[N].Start :=   Lines[0].Line[C].Note[N].Start div 2;
+      Lines[0].Line[C].Note[N].Dlugosc := Round(Lines[0].Line[C].Note[N].Dlugosc / 2);
     end; // N
   end; // C
 end;
@@ -675,13 +675,13 @@ var
   N:    integer;
 begin
   CurrentSong.BPM[0].BPM := CurrentSong.BPM[0].BPM * 2;
-  for C := 0 to Czesci[0].High do begin
-    Czesci[0].Czesc[C].Start :=     Czesci[0].Czesc[C].Start * 2;
-    Czesci[0].Czesc[C].StartNote := Czesci[0].Czesc[C].StartNote * 2;
-    Czesci[0].Czesc[C].Koniec :=    Czesci[0].Czesc[C].Koniec * 2;
-    for N := 0 to Czesci[0].Czesc[C].HighNut do begin
-      Czesci[0].Czesc[C].Nuta[N].Start :=   Czesci[0].Czesc[C].Nuta[N].Start * 2;
-      Czesci[0].Czesc[C].Nuta[N].Dlugosc := Czesci[0].Czesc[C].Nuta[N].Dlugosc * 2;
+  for C := 0 to Lines[0].High do begin
+    Lines[0].Line[C].Start :=     Lines[0].Line[C].Start * 2;
+    Lines[0].Line[C].StartNote := Lines[0].Line[C].StartNote * 2;
+    Lines[0].Line[C].Koniec :=    Lines[0].Line[C].Koniec * 2;
+    for N := 0 to Lines[0].Line[C].HighNote do begin
+      Lines[0].Line[C].Note[N].Start :=   Lines[0].Line[C].Note[N].Start * 2;
+      Lines[0].Line[C].Note[N].Dlugosc := Lines[0].Line[C].Note[N].Dlugosc * 2;
     end; // N
   end; // C
 end;
@@ -693,14 +693,14 @@ var
   S:    string;
 begin
   // temporary
-{  for C := 0 to Czesci[0].High do
-    for N := 0 to Czesci[0].Czesc[C].HighNut do
-      Czesci[0].Czesc[C].Nuta[N].Tekst := AnsiLowerCase(Czesci[0].Czesc[C].Nuta[N].Tekst);}
-
-  for C := 0 to Czesci[0].High do begin
-    S := AnsiUpperCase(Copy(Czesci[0].Czesc[C].Nuta[0].Tekst, 1, 1));
-    S := S + Copy(Czesci[0].Czesc[C].Nuta[0].Tekst, 2, Length(Czesci[0].Czesc[C].Nuta[0].Tekst)-1);
-    Czesci[0].Czesc[C].Nuta[0].Tekst := S;
+{  for C := 0 to Lines[0].High do
+    for N := 0 to Lines[0].Line[C].HighNut do
+      Lines[0].Line[C].Note[N].Tekst := AnsiLowerCase(Lines[0].Line[C].Note[N].Tekst);}
+
+  for C := 0 to Lines[0].High do begin
+    S := AnsiUpperCase(Copy(Lines[0].Line[C].Note[0].Tekst, 1, 1));
+    S := S + Copy(Lines[0].Line[C].Note[0].Tekst, 2, Length(Lines[0].Line[C].Note[0].Tekst)-1);
+    Lines[0].Line[C].Note[0].Tekst := S;
   end; // C
 end;
 
@@ -709,41 +709,41 @@ var
   C:    integer;
   N:    integer;
 begin
-  for C := 0 to Czesci[0].High do begin
+  for C := 0 to Lines[0].High do begin
     // correct starting spaces in the first word
-    while Copy(Czesci[0].Czesc[C].Nuta[0].Tekst, 1, 1) = ' ' do
-      Czesci[0].Czesc[C].Nuta[0].Tekst := Copy(Czesci[0].Czesc[C].Nuta[0].Tekst, 2, 100);
+    while Copy(Lines[0].Line[C].Note[0].Tekst, 1, 1) = ' ' do
+      Lines[0].Line[C].Note[0].Tekst := Copy(Lines[0].Line[C].Note[0].Tekst, 2, 100);
 
     // move spaces on the start to the end of the previous note
-    for N := 1 to Czesci[0].Czesc[C].HighNut do begin
-      while (Copy(Czesci[0].Czesc[C].Nuta[N].Tekst, 1, 1) = ' ') do begin
-        Czesci[0].Czesc[C].Nuta[N].Tekst := Copy(Czesci[0].Czesc[C].Nuta[N].Tekst, 2, 100);
-        Czesci[0].Czesc[C].Nuta[N-1].Tekst := Czesci[0].Czesc[C].Nuta[N-1].Tekst + ' ';
+    for N := 1 to Lines[0].Line[C].HighNote do begin
+      while (Copy(Lines[0].Line[C].Note[N].Tekst, 1, 1) = ' ') do begin
+        Lines[0].Line[C].Note[N].Tekst := Copy(Lines[0].Line[C].Note[N].Tekst, 2, 100);
+        Lines[0].Line[C].Note[N-1].Tekst := Lines[0].Line[C].Note[N-1].Tekst + ' ';
       end;
     end; // N
 
     // correct '-'  to '- '
-    for N := 0 to Czesci[0].Czesc[C].HighNut do begin
-      if Czesci[0].Czesc[C].Nuta[N].Tekst = '-' then
-        Czesci[0].Czesc[C].Nuta[N].Tekst := '- ';
+    for N := 0 to Lines[0].Line[C].HighNote do begin
+      if Lines[0].Line[C].Note[N].Tekst = '-' then
+        Lines[0].Line[C].Note[N].Tekst := '- ';
     end; // N
 
     // add space to the previous note when the current word is '- '
-    for N := 1 to Czesci[0].Czesc[C].HighNut do begin
-      if Czesci[0].Czesc[C].Nuta[N].Tekst  = '- ' then
-        Czesci[0].Czesc[C].Nuta[N-1].Tekst := Czesci[0].Czesc[C].Nuta[N-1].Tekst + ' ';
+    for N := 1 to Lines[0].Line[C].HighNote do begin
+      if Lines[0].Line[C].Note[N].Tekst  = '- ' then
+        Lines[0].Line[C].Note[N-1].Tekst := Lines[0].Line[C].Note[N-1].Tekst + ' ';
     end; // N
 
     // correct too many spaces at the end of note
-    for N := 0 to Czesci[0].Czesc[C].HighNut do begin
-      while Copy(Czesci[0].Czesc[C].Nuta[N].Tekst, Length(Czesci[0].Czesc[C].Nuta[N].Tekst)-1, 2) = '  ' do
-        Czesci[0].Czesc[C].Nuta[N].Tekst := Copy(Czesci[0].Czesc[C].Nuta[N].Tekst, 1, Length(Czesci[0].Czesc[C].Nuta[N].Tekst)-1);
+    for N := 0 to Lines[0].Line[C].HighNote do begin
+      while Copy(Lines[0].Line[C].Note[N].Tekst, Length(Lines[0].Line[C].Note[N].Tekst)-1, 2) = '  ' do
+        Lines[0].Line[C].Note[N].Tekst := Copy(Lines[0].Line[C].Note[N].Tekst, 1, Length(Lines[0].Line[C].Note[N].Tekst)-1);
     end; // N
 
     // and correct if there is no space at the end of sentence
-    N := Czesci[0].Czesc[C].HighNut;
-    if Copy(Czesci[0].Czesc[C].Nuta[N].Tekst, Length(Czesci[0].Czesc[C].Nuta[N].Tekst), 1) <> ' ' then
-      Czesci[0].Czesc[C].Nuta[N].Tekst := Czesci[0].Czesc[C].Nuta[N].Tekst + ' ';
+    N := Lines[0].Line[C].HighNote;
+    if Copy(Lines[0].Line[C].Note[N].Tekst, Length(Lines[0].Line[C].Note[N].Tekst), 1) <> ' ' then
+      Lines[0].Line[C].Note[N].Tekst := Lines[0].Line[C].Note[N].Tekst + ' ';
 
   end; // C
 end;
@@ -755,10 +755,10 @@ var
   Min:  integer;
   Max:  integer;
 begin
-  for C := 1 to Czesci[0].High do begin
-    with Czesci[0].Czesc[C-1] do begin
-      Min := Nuta[HighNut].Start + Nuta[HighNut].Dlugosc;
-      Max := Czesci[0].Czesc[C].StartNote;
+  for C := 1 to Lines[0].High do begin
+    with Lines[0].Line[C-1] do begin
+      Min := Note[HighNote].Start + Note[HighNote].Dlugosc;
+      Max := Lines[0].Line[C].StartNote;
       case (Max - Min) of
         0:    S := Max;
         1:    S := Max;
@@ -771,7 +771,7 @@ begin
             S := Max;
       end; // case
 
-      Czesci[0].Czesc[C].Start := S;
+      Lines[0].Line[C].Start := S;
     end; // with
   end; // for
 end;
@@ -788,60 +788,60 @@ var
   NNewL:  integer;
 begin
   // increase sentence length by 1
-  CLen := Length(Czesci[0].Czesc);
-  SetLength(Czesci[0].Czesc, CLen + 1);
-  Inc(Czesci[0].Ilosc);
-  Inc(Czesci[0].High);
+  CLen := Length(Lines[0].Line);
+  SetLength(Lines[0].Line, CLen + 1);
+  Inc(Lines[0].Ilosc);
+  Inc(Lines[0].High);
 
   // move needed sentences to one forward. newly has the copy of divided sentence
-  CStart := Czesci[0].Akt;
+  CStart := Lines[0].Akt;
   for C := CLen-1 downto CStart do
-    Czesci[0].Czesc[C+1] := Czesci[0].Czesc[C];
+    Lines[0].Line[C+1] := Lines[0].Line[C];
 
   // clear and set new sentence
   CNew := CStart + 1;
   NStart := AktNuta;
-  Czesci[0].Czesc[CNew].Start := Czesci[0].Czesc[CStart].Nuta[NStart].Start;
-  Czesci[0].Czesc[CNew].StartNote := Czesci[0].Czesc[CStart].Nuta[NStart].Start;
-  Czesci[0].Czesc[CNew].Lyric := '';
-  Czesci[0].Czesc[CNew].LyricWidth := 0;
-  Czesci[0].Czesc[CNew].Koniec := 0;
-  Czesci[0].Czesc[CNew].BaseNote := 0; // 0.5.0: we modify it later in this procedure
-  Czesci[0].Czesc[CNew].IlNut := 0;
-  Czesci[0].Czesc[CNew].HighNut := -1;
-  SetLength(Czesci[0].Czesc[CNew].Nuta, 0);
+  Lines[0].Line[CNew].Start := Lines[0].Line[CStart].Note[NStart].Start;
+  Lines[0].Line[CNew].StartNote := Lines[0].Line[CStart].Note[NStart].Start;
+  Lines[0].Line[CNew].Lyric := '';
+  Lines[0].Line[CNew].LyricWidth := 0;
+  Lines[0].Line[CNew].Koniec := 0;
+  Lines[0].Line[CNew].BaseNote := 0; // 0.5.0: we modify it later in this procedure
+  Lines[0].Line[CNew].IlNut := 0;
+  Lines[0].Line[CNew].HighNote := -1;
+  SetLength(Lines[0].Line[CNew].Note, 0);
 
   // move right notes to new sentences
-  NHigh := Czesci[0].Czesc[CStart].HighNut;
+  NHigh := Lines[0].Line[CStart].HighNote;
   for N := NStart to NHigh do begin
-    NNewL := Czesci[0].Czesc[CNew].IlNut;
-    SetLength(Czesci[0].Czesc[CNew].Nuta, NNewL + 1);
-    Czesci[0].Czesc[CNew].Nuta[NNewL] := Czesci[0].Czesc[CStart].Nuta[N];
+    NNewL := Lines[0].Line[CNew].IlNut;
+    SetLength(Lines[0].Line[CNew].Note, NNewL + 1);
+    Lines[0].Line[CNew].Note[NNewL] := Lines[0].Line[CStart].Note[N];
 
     // increase sentence counters
-    Inc(Czesci[0].Czesc[CNew].IlNut);
-    Inc(Czesci[0].Czesc[CNew].HighNut);
-    Czesci[0].Czesc[CNew].Koniec := Czesci[0].Czesc[CNew].Nuta[NNewL].Start +
-      Czesci[0].Czesc[CNew].Nuta[NNewL].Dlugosc;
+    Inc(Lines[0].Line[CNew].IlNut);
+    Inc(Lines[0].Line[CNew].HighNote);
+    Lines[0].Line[CNew].Koniec := Lines[0].Line[CNew].Note[NNewL].Start +
+      Lines[0].Line[CNew].Note[NNewL].Dlugosc;
   end;
 
   // clear old notes and set sentence counters
-  Czesci[0].Czesc[CStart].HighNut := NStart - 1;
-  Czesci[0].Czesc[CStart].IlNut := Czesci[0].Czesc[CStart].HighNut + 1;
-  Czesci[0].Czesc[CStart].Koniec := Czesci[0].Czesc[CStart].Nuta[NStart-1].Start +
-    Czesci[0].Czesc[CStart].Nuta[NStart-1].Dlugosc;
-  SetLength(Czesci[0].Czesc[CStart].Nuta, Czesci[0].Czesc[CStart].IlNut);
+  Lines[0].Line[CStart].HighNote := NStart - 1;
+  Lines[0].Line[CStart].IlNut := Lines[0].Line[CStart].HighNote + 1;
+  Lines[0].Line[CStart].Koniec := Lines[0].Line[CStart].Note[NStart-1].Start +
+    Lines[0].Line[CStart].Note[NStart-1].Dlugosc;
+  SetLength(Lines[0].Line[CStart].Note, Lines[0].Line[CStart].IlNut);
 
   // 0.5.0: modify BaseNote
-  Czesci[0].Czesc[CNew].BaseNote := 120;
-  for N := 0 to Czesci[0].Czesc[CNew].IlNut do
-    if Czesci[0].Czesc[CNew].Nuta[N].Ton < Czesci[0].Czesc[CNew].BaseNote then
-      Czesci[0].Czesc[CNew].BaseNote := Czesci[0].Czesc[CNew].Nuta[N].Ton;
+  Lines[0].Line[CNew].BaseNote := 120;
+  for N := 0 to Lines[0].Line[CNew].IlNut do
+    if Lines[0].Line[CNew].Note[N].Ton < Lines[0].Line[CNew].BaseNote then
+      Lines[0].Line[CNew].BaseNote := Lines[0].Line[CNew].Note[N].Ton;
 
-  Czesci[0].Akt := Czesci[0].Akt + 1;
+  Lines[0].Akt := Lines[0].Akt + 1;
   AktNuta := 0;
-  Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 1;
-  Lyric.AddCzesc(Czesci[0].Akt);
+  Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 1;
+  Lyric.AddCzesc(Lines[0].Akt);
 
 end;
 
@@ -852,33 +852,33 @@ var
   NStart: integer;
   NDst:   integer;
 begin
-  C := Czesci[0].Akt;
+  C := Lines[0].Akt;
 
   // set new sentence
-  NStart := Czesci[0].Czesc[C].IlNut;
-  Czesci[0].Czesc[C].IlNut := Czesci[0].Czesc[C].IlNut + Czesci[0].Czesc[C+1].IlNut;
-  Czesci[0].Czesc[C].HighNut := Czesci[0].Czesc[C].HighNut + Czesci[0].Czesc[C+1].IlNut;
-  SetLength(Czesci[0].Czesc[C].Nuta, Czesci[0].Czesc[C].IlNut);
+  NStart := Lines[0].Line[C].IlNut;
+  Lines[0].Line[C].IlNut := Lines[0].Line[C].IlNut + Lines[0].Line[C+1].IlNut;
+  Lines[0].Line[C].HighNote := Lines[0].Line[C].HighNote + Lines[0].Line[C+1].IlNut;
+  SetLength(Lines[0].Line[C].Note, Lines[0].Line[C].IlNut);
 
   // move right notes to new sentences
-  for N := 0 to Czesci[0].Czesc[C+1].HighNut do begin
+  for N := 0 to Lines[0].Line[C+1].HighNote do begin
     NDst := NStart + N;
-    Czesci[0].Czesc[C].Nuta[NDst] := Czesci[0].Czesc[C+1].Nuta[N];
+    Lines[0].Line[C].Note[NDst] := Lines[0].Line[C+1].Note[N];
   end;
 
   // increase sentence counters
-  NDst := Czesci[0].Czesc[C].HighNut;
-  Czesci[0].Czesc[C].Koniec := Czesci[0].Czesc[C].Nuta[NDst].Start +
-    Czesci[0].Czesc[C].Nuta[NDst].Dlugosc;
+  NDst := Lines[0].Line[C].HighNote;
+  Lines[0].Line[C].Koniec := Lines[0].Line[C].Note[NDst].Start +
+    Lines[0].Line[C].Note[NDst].Dlugosc;
 
   // move needed sentences to one backward.
-  for C := Czesci[0].Akt + 1 to Czesci[0].High - 1 do
-    Czesci[0].Czesc[C] := Czesci[0].Czesc[C+1];
+  for C := Lines[0].Akt + 1 to Lines[0].High - 1 do
+    Lines[0].Line[C] := Lines[0].Line[C+1];
 
   // increase sentence length by 1
-  SetLength(Czesci[0].Czesc, Length(Czesci[0].Czesc) - 1);
-  Dec(Czesci[0].Ilosc);
-  Dec(Czesci[0].High);
+  SetLength(Lines[0].Line, Length(Lines[0].Line) - 1);
+  Dec(Lines[0].Ilosc);
+  Dec(Lines[0].High);
 end;
 
 procedure TScreenEditSub.DivideNote;
@@ -887,24 +887,24 @@ var
   N:    integer;
   NLen: integer;
 begin
-  C := Czesci[0].Akt;
+  C := Lines[0].Akt;
 
-  NLen := Czesci[0].Czesc[C].IlNut + 1;
-  SetLength(Czesci[0].Czesc[C].Nuta, NLen);
-  Inc(Czesci[0].Czesc[C].HighNut);
-  Inc(Czesci[0].Czesc[C].IlNut);
+  NLen := Lines[0].Line[C].IlNut + 1;
+  SetLength(Lines[0].Line[C].Note, NLen);
+  Inc(Lines[0].Line[C].HighNote);
+  Inc(Lines[0].Line[C].IlNut);
 
   // we copy all notes including selected one
-  for N := Czesci[0].Czesc[C].HighNut downto AktNuta+1 do begin
-    Czesci[0].Czesc[C].Nuta[N] := Czesci[0].Czesc[C].Nuta[N-1];
+  for N := Lines[0].Line[C].HighNote downto AktNuta+1 do begin
+    Lines[0].Line[C].Note[N] := Lines[0].Line[C].Note[N-1];
   end;
 
   // me slightly modify new note
-  Czesci[0].Czesc[C].Nuta[AktNuta].Dlugosc := 1;
-  Inc(Czesci[0].Czesc[C].Nuta[AktNuta+1].Start);
-  Dec(Czesci[0].Czesc[C].Nuta[AktNuta+1].Dlugosc);
-  Czesci[0].Czesc[C].Nuta[AktNuta+1].Tekst := '- ';
-  Czesci[0].Czesc[C].Nuta[AktNuta+1].Color := 0;
+  Lines[0].Line[C].Note[AktNuta].Dlugosc := 1;
+  Inc(Lines[0].Line[C].Note[AktNuta+1].Start);
+  Dec(Lines[0].Line[C].Note[AktNuta+1].Dlugosc);
+  Lines[0].Line[C].Note[AktNuta+1].Tekst := '- ';
+  Lines[0].Line[C].Note[AktNuta+1].Color := 0;
 end;
 
 procedure TScreenEditSub.DeleteNote;
@@ -913,56 +913,56 @@ var
   N:    integer;
   NLen: integer;
 begin
-  C := Czesci[0].Akt;
+  C := Lines[0].Akt;
 
   //Do Not delete Last Note
-  if (Czesci[0].High > 0) OR (Czesci[0].Czesc[C].HighNut > 0) then
+  if (Lines[0].High > 0) OR (Lines[0].Line[C].HighNote > 0) then
   begin
 
     // we copy all notes from the next to the selected one
-    for N := AktNuta+1 to Czesci[0].Czesc[C].HighNut do begin
-      Czesci[0].Czesc[C].Nuta[N-1] := Czesci[0].Czesc[C].Nuta[N];
+    for N := AktNuta+1 to Lines[0].Line[C].HighNote do begin
+      Lines[0].Line[C].Note[N-1] := Lines[0].Line[C].Note[N];
     end;
 
-    NLen := Czesci[0].Czesc[C].IlNut - 1;
+    NLen := Lines[0].Line[C].IlNut - 1;
 
     if (NLen > 0) then
     begin
-      SetLength(Czesci[0].Czesc[C].Nuta, NLen);
-      Dec(Czesci[0].Czesc[C].HighNut);
-      Dec(Czesci[0].Czesc[C].IlNut);
+      SetLength(Lines[0].Line[C].Note, NLen);
+      Dec(Lines[0].Line[C].HighNote);
+      Dec(Lines[0].Line[C].IlNut);
 
 
       // me slightly modify new note
-      if AktNuta > Czesci[0].Czesc[C].HighNut then Dec(AktNuta);
-        Czesci[0].Czesc[C].Nuta[AktNuta].Color := 1;
+      if AktNuta > Lines[0].Line[C].HighNote then Dec(AktNuta);
+        Lines[0].Line[C].Note[AktNuta].Color := 1;
     end
     //Last Note of current Sentence Deleted - > Delete Sentence
     else
     begin
       //Move all Sentences after the current to the Left
-      for N := C+1 to Czesci[0].High do
-        Czesci[0].Czesc[N-1] := Czesci[0].Czesc[N];
+      for N := C+1 to Lines[0].High do
+        Lines[0].Line[N-1] := Lines[0].Line[N];
 
       //Delete Last Sentence
-      SetLength(Czesci[0].Czesc, Czesci[0].High);
-      Czesci[0].High := High(Czesci[0].Czesc);
-      Czesci[0].Ilosc := Length(Czesci[0].Czesc);
+      SetLength(Lines[0].Line, Lines[0].High);
+      Lines[0].High := High(Lines[0].Line);
+      Lines[0].Ilosc := Length(Lines[0].Line);
 
       AktNuta := 0;
       if (C > 0) then
-        Czesci[0].Akt := C - 1
+        Lines[0].Akt := C - 1
       else
-        Czesci[0].Akt := 0;
+        Lines[0].Akt := 0;
 
-      Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 1;
+      Lines[0].Line[Lines[0].Akt].Note[AktNuta].Color := 1;
     end;
   end;
 end;
 
 procedure TScreenEditSub.TransposeNote(Transpose: integer);
 begin
-  Inc(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Ton, Transpose);
+  Inc(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Ton, Transpose);
 end;
 
 procedure TScreenEditSub.ChangeWholeTone(Tone: integer);
@@ -970,10 +970,10 @@ var
   C:  integer;
   N:  integer;
 begin
-  for C := 0 to Czesci[0].High do begin
-    Czesci[0].Czesc[C].BaseNote := Czesci[0].Czesc[C].BaseNote + Tone;
-    for N := 0 to Czesci[0].Czesc[C].HighNut do
-      Czesci[0].Czesc[C].Nuta[N].Ton := Czesci[0].Czesc[C].Nuta[N].Ton + Tone;
+  for C := 0 to Lines[0].High do begin
+    Lines[0].Line[C].BaseNote := Lines[0].Line[C].BaseNote + Tone;
+    for N := 0 to Lines[0].Line[C].HighNote do
+      Lines[0].Line[C].Note[N].Ton := Lines[0].Line[C].Note[N].Ton + Tone;
   end;
 end;
 
@@ -983,19 +983,19 @@ var
   N:    integer;
   NStart: integer;
 begin
-  for C := Czesci[0].Akt to Czesci[0].High do begin
+  for C := Lines[0].Akt to Lines[0].High do begin
     NStart := 0;
-    if C = Czesci[0].Akt then NStart := AktNuta;
-    for N := NStart to Czesci[0].Czesc[C].HighNut do begin
-      Inc(Czesci[0].Czesc[C].Nuta[N].Start, Move); // move note start
+    if C = Lines[0].Akt then NStart := AktNuta;
+    for N := NStart to Lines[0].Line[C].HighNote do begin
+      Inc(Lines[0].Line[C].Note[N].Start, Move); // move note start
 
       if N = 0 then begin // fix beginning
-        Inc(Czesci[0].Czesc[C].Start, Move);
-        Inc(Czesci[0].Czesc[C].StartNote, Move);
+        Inc(Lines[0].Line[C].Start, Move);
+        Inc(Lines[0].Line[C].StartNote, Move);
       end;
 
-      if N = Czesci[0].Czesc[C].HighNut then // fix ending
-        Inc(Czesci[0].Czesc[C].Koniec, Move);
+      if N = Lines[0].Line[C].HighNote then // fix ending
+        Inc(Lines[0].Line[C].Koniec, Move);
 
     end; // for
   end; // for
@@ -1007,30 +1007,30 @@ var
   N:      integer;
   NHigh:  integer;
 begin
-{  C := Czesci[0].Akt;
+{  C := Lines[0].Akt;
 
-  for N := Czesci[0].Czesc[C].HighNut downto 1 do begin
-    Czesci[0].Czesc[C].Nuta[N].Tekst := Czesci[0].Czesc[C].Nuta[N-1].Tekst;
+  for N := Lines[0].Line[C].HighNut downto 1 do begin
+    Lines[0].Line[C].Note[N].Tekst := Lines[0].Line[C].Note[N-1].Tekst;
   end; // for
 
-  Czesci[0].Czesc[C].Nuta[0].Tekst := '- ';}
+  Lines[0].Line[C].Note[0].Tekst := '- ';}
 
-  C := Czesci[0].Akt;
-  NHigh := Czesci[0].Czesc[C].HighNut;
+  C := Lines[0].Akt;
+  NHigh := Lines[0].Line[C].HighNote;
 
   // last word
-  Czesci[0].Czesc[C].Nuta[NHigh].Tekst := Czesci[0].Czesc[C].Nuta[NHigh-1].Tekst + Czesci[0].Czesc[C].Nuta[NHigh].Tekst;
+  Lines[0].Line[C].Note[NHigh].Tekst := Lines[0].Line[C].Note[NHigh-1].Tekst + Lines[0].Line[C].Note[NHigh].Tekst;
 
   // other words
   for N := NHigh - 1 downto AktNuta + 1 do begin
-    Czesci[0].Czesc[C].Nuta[N].Tekst := Czesci[0].Czesc[C].Nuta[N-1].Tekst;
+    Lines[0].Line[C].Note[N].Tekst := Lines[0].Line[C].Note[N-1].Tekst;
   end; // for
-  Czesci[0].Czesc[C].Nuta[AktNuta].Tekst := '- ';
+  Lines[0].Line[C].Note[AktNuta].Tekst := '- ';
 end;
 
 procedure TScreenEditSub.MarkSrc;
 begin
-  CopySrc := Czesci[0].Akt;
+  CopySrc := Lines[0].Akt;
 end;
 
 procedure TScreenEditSub.PasteText;
@@ -1038,10 +1038,10 @@ var
   C:    integer;
   N:    integer;
 begin
-  C := Czesci[0].Akt;
+  C := Lines[0].Akt;
 
-  for N := 0 to Czesci[0].Czesc[CopySrc].HighNut do
-    Czesci[0].Czesc[C].Nuta[N].Tekst := Czesci[0].Czesc[CopySrc].Nuta[N].Tekst;
+  for N := 0 to Lines[0].Line[CopySrc].HighNote do
+    Lines[0].Line[C].Note[N].Tekst := Lines[0].Line[CopySrc].Note[N].Tekst;
 end;
 
 procedure TScreenEditSub.CopySentence(Src, Dst: integer);
@@ -1051,21 +1051,21 @@ var
   Time2:  integer;
   TD:  integer;
 begin
-  Time1 := Czesci[0].Czesc[Src].Nuta[0].Start;
-  Time2 := Czesci[0].Czesc[Dst].Nuta[0].Start;
+  Time1 := Lines[0].Line[Src].Note[0].Start;
+  Time2 := Lines[0].Line[Dst].Note[0].Start;
   TD := Time2-Time1;
 
-  SetLength(Czesci[0].Czesc[Dst].Nuta, Czesci[0].Czesc[Src].IlNut);
-  Czesci[0].Czesc[Dst].IlNut := Czesci[0].Czesc[Src].IlNut;
-  Czesci[0].Czesc[Dst].HighNut := Czesci[0].Czesc[Src].HighNut;
-  for N := 0 to Czesci[0].Czesc[Src].HighNut do begin
-    Czesci[0].Czesc[Dst].Nuta[N].Tekst := Czesci[0].Czesc[Src].Nuta[N].Tekst;
-    Czesci[0].Czesc[Dst].Nuta[N].Dlugosc := Czesci[0].Czesc[Src].Nuta[N].Dlugosc;
-    Czesci[0].Czesc[Dst].Nuta[N].Ton := Czesci[0].Czesc[Src].Nuta[N].Ton;
-    Czesci[0].Czesc[Dst].Nuta[N].Start := Czesci[0].Czesc[Src].Nuta[N].Start + TD;
+  SetLength(Lines[0].Line[Dst].Note, Lines[0].Line[Src].IlNut);
+  Lines[0].Line[Dst].IlNut := Lines[0].Line[Src].IlNut;
+  Lines[0].Line[Dst].HighNote := Lines[0].Line[Src].HighNote;
+  for N := 0 to Lines[0].Line[Src].HighNote do begin
+    Lines[0].Line[Dst].Note[N].Tekst := Lines[0].Line[Src].Note[N].Tekst;
+    Lines[0].Line[Dst].Note[N].Dlugosc := Lines[0].Line[Src].Note[N].Dlugosc;
+    Lines[0].Line[Dst].Note[N].Ton := Lines[0].Line[Src].Note[N].Ton;
+    Lines[0].Line[Dst].Note[N].Start := Lines[0].Line[Src].Note[N].Start + TD;
   end;
-  N := Czesci[0].Czesc[Src].HighNut;
-  Czesci[0].Czesc[Dst].Koniec := Czesci[0].Czesc[Dst].Nuta[N].Start + Czesci[0].Czesc[Dst].Nuta[N].Dlugosc;
+  N := Lines[0].Line[Src].HighNote;
+  Lines[0].Line[Dst].Koniec := Lines[0].Line[Dst].Note[N].Start + Lines[0].Line[Dst].Note[N].Dlugosc;
 end;
 
 procedure TScreenEditSub.CopySentences(Src, Dst, Num: integer);
@@ -1076,29 +1076,29 @@ begin
 
 
   // create place for new sentences
-  SetLength(Czesci[0].Czesc, Czesci[0].Ilosc + Num - 1);
+  SetLength(Lines[0].Line, Lines[0].Ilosc + Num - 1);
 
   // moves sentences next to the destination
-  for C := Czesci[0].High downto Dst + 1 do begin
-    Czesci[0].Czesc[C + Num - 1] := Czesci[0].Czesc[C];
+  for C := Lines[0].High downto Dst + 1 do begin
+    Lines[0].Line[C + Num - 1] := Lines[0].Line[C];
   end;
 
   // prepares new sentences: sets sentence start and create first note
   for C := 1 to Num-1 do begin
-    Czesci[0].Czesc[Dst + C].Start := Czesci[0].Czesc[Dst + C - 1].StartNote +
-      (Czesci[0].Czesc[Src + C].StartNote - Czesci[0].Czesc[Src + C - 1].StartNote);
-    SetLength(Czesci[0].Czesc[Dst + C].Nuta, 1);
-    Czesci[0].Czesc[Dst + C].IlNut := 1;
-    Czesci[0].Czesc[Dst + C].HighNut := 0;
-    Czesci[0].Czesc[Dst + C].Nuta[0].Start := Czesci[0].Czesc[Dst + C].Start;
-    Czesci[0].Czesc[Dst + C].Nuta[0].Dlugosc := 1;
-    Czesci[0].Czesc[Dst + C].StartNote := Czesci[0].Czesc[Dst + C].Start;
-    Czesci[0].Czesc[Dst + C].Koniec := Czesci[0].Czesc[Dst + C].Start + 1;
+    Lines[0].Line[Dst + C].Start := Lines[0].Line[Dst + C - 1].StartNote +
+      (Lines[0].Line[Src + C].StartNote - Lines[0].Line[Src + C - 1].StartNote);
+    SetLength(Lines[0].Line[Dst + C].Note, 1);
+    Lines[0].Line[Dst + C].IlNut := 1;
+    Lines[0].Line[Dst + C].HighNote := 0;
+    Lines[0].Line[Dst + C].Note[0].Start := Lines[0].Line[Dst + C].Start;
+    Lines[0].Line[Dst + C].Note[0].Dlugosc := 1;
+    Lines[0].Line[Dst + C].StartNote := Lines[0].Line[Dst + C].Start;
+    Lines[0].Line[Dst + C].Koniec := Lines[0].Line[Dst + C].Start + 1;
   end;
 
   // increase counters
-  Czesci[0].Ilosc := Czesci[0].Ilosc + Num - 1;
-  Czesci[0].High := Czesci[0].High + Num - 1;
+  Lines[0].Ilosc := Lines[0].Ilosc + Num - 1;
+  Lines[0].High := Lines[0].High + Num - 1;
 
   for C := 0 to Num-1 do
     CopySentence(Src + C, Dst + C);
@@ -1115,7 +1115,7 @@ begin
   AddText(40, 17, 1, 6, 1, 1, 1, 'Line');
   TextSentence := AddText(120, 14, 1, 8, 0, 0, 0, '0 / 0');
 
-  // nuta
+  // Note
   AddStatic(220, 10, 80, 30, 0, 0, 0, Skin.GetTextureFileName('ButtonF'), 'JPG', 'Font Black');
   AddText(242, 17, 1, 6, 1, 1, 1, 'Note');
   TextNote := AddText(320, 14, 1, 8, 0, 0, 0, '0 / 0');
@@ -1190,9 +1190,9 @@ begin
     Text[TextArtist].Text :=  CurrentSong.Artist;
     Text[TextMp3].Text :=     CurrentSong.Mp3;
 
-    Czesci[0].Akt := 0;
+    Lines[0].Akt := 0;
     AktNuta := 0;
-    Czesci[0].Czesc[0].Nuta[0].Color := 1;
+    Lines[0].Line[0].Note[0].Color := 1;
 
     AudioPlayback.Open(CurrentSong.Path + CurrentSong.Mp3);
     //Set Down Music Volume for Better hearability of Midi Sounds
@@ -1239,7 +1239,7 @@ begin
     {$IFDEF UseMIDIPort}
     // stop the music
     if (MidiPos > MidiStop) then begin
-      MidiOut.PutShort($81, Czesci[0].Czesc[Czesci[0].Akt].Nuta[MidiLastNote].Ton + 60, 127);
+      MidiOut.PutShort($81, Lines[0].Line[Lines[0].Akt].Note[MidiLastNote].Ton + 60, 127);
       PlaySentenceMidi := false;
     end;
     {$ENDIF}
@@ -1249,15 +1249,15 @@ begin
     Text[TextDebug].Text := IntToStr(AktBeat);
 
     if AktBeat <> LastClick then begin
-      for Pet := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do
-        if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Start = AktBeat) then
+      for Pet := 0 to Lines[0].Line[Lines[0].Akt].HighNote do
+        if (Lines[0].Line[Lines[0].Akt].Note[Pet].Start = AktBeat) then
         begin
 
           {$IFDEF UseMIDIPort}
           LastClick := AktBeat;
           if Pet > 0 then
-            MidiOut.PutShort($81, Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet-1].Ton + 60, 127);
-          MidiOut.PutShort($91, Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Ton + 60, 127);
+            MidiOut.PutShort($81, Lines[0].Line[Lines[0].Akt].Note[Pet-1].Ton + 60, 127);
+          MidiOut.PutShort($91, Lines[0].Line[Lines[0].Akt].Note[Pet].Ton + 60, 127);
           MidiLastNote := Pet;
           {$ENDIF}
 
@@ -1280,8 +1280,8 @@ begin
       AktBeat := Floor(GetMidBeat(AudioPlayback.Position - CurrentSong.GAP / 1000));
       Text[TextDebug].Text := IntToStr(AktBeat);
       if AktBeat <> LastClick then begin
-        for Pet := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do
-          if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Start = AktBeat) then
+        for Pet := 0 to Lines[0].Line[Lines[0].Akt].HighNote do
+          if (Lines[0].Line[Lines[0].Akt].Note[Pet].Start = AktBeat) then
           begin
             AudioPlayback.PlaySound( SoundLib.Click );
             LastClick := AktBeat;
@@ -1291,8 +1291,8 @@ begin
   end; // if PlaySentence
   
 
-  Text[TextSentence].Text := IntToStr(Czesci[0].Akt + 1) + ' / ' + IntToStr(Czesci[0].Ilosc);
-  Text[TextNote].Text := IntToStr(AktNuta + 1) + ' / ' + IntToStr(Czesci[0].Czesc[Czesci[0].Akt].IlNut);
+  Text[TextSentence].Text := IntToStr(Lines[0].Akt + 1) + ' / ' + IntToStr(Lines[0].Ilosc);
+  Text[TextNote].Text := IntToStr(AktNuta + 1) + ' / ' + IntToStr(Lines[0].Line[Lines[0].Akt].IlNut);
 
   // Song info
   Text[TextBPM].Text := FloatToStr(CurrentSong.BPM[0].BPM / 4);
@@ -1302,10 +1302,10 @@ begin
   if not Error then
   begin
     // Note info
-    Text[TextNStart].Text :=    IntToStr(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Start);
-    Text[TextNDlugosc].Text :=  IntToStr(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Dlugosc);
-    Text[TextNTon].Text :=      IntToStr(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Ton) + ' ( ' + GetNoteName(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Ton) + ' )';
-    Text[TextNText].Text :=              Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst;
+    Text[TextNStart].Text :=    IntToStr(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Start);
+    Text[TextNDlugosc].Text :=  IntToStr(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Dlugosc);
+    Text[TextNTon].Text :=      IntToStr(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Ton) + ' ( ' + GetNoteName(Lines[0].Line[Lines[0].Akt].Note[AktNuta].Ton) + ' )';
+    Text[TextNText].Text :=              Lines[0].Line[Lines[0].Akt].Note[AktNuta].Tekst;
   end;
 
   // Text Edit Mode
diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index 2de44e19..f56b15df 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -634,8 +634,8 @@ begin
   end; // case
 
   // Add Lines to Lyrics
-  While (not Lyrics.LineinQueue) AND (Lyrics.LineCounter <= High(Czesci[0].Czesc)) do
-      Lyrics.AddLine(@Czesci[0].Czesc[Lyrics.LineCounter]);
+  While (not Lyrics.LineinQueue) AND (Lyrics.LineCounter <= High(Lines[0].Line)) do
+      Lyrics.AddLine(@Lines[0].Line[Lyrics.LineCounter]);
 
   UpdateLCD;
 
@@ -883,8 +883,8 @@ begin
   //Set Position of Line Bonus - PhrasenBonus End
   //Set Num of Empty Sentences for Phrasen Bonus
   NumEmptySentences := 0;
-  for P := low(Czesci[0].Czesc) to high(Czesci[0].Czesc) do
-    if Czesci[0].Czesc[P].TotalNotes = 0 then Inc(NumEmptySentences);
+  for P := low(Lines[0].Line) to high(Lines[0].Line) do
+    if Lines[0].Line[P].TotalNotes = 0 then Inc(NumEmptySentences);
 
   Log.LogStatus('End', 'onShow');
 end;
@@ -1311,7 +1311,7 @@ B: integer; //Max Points for Notes
 begin
 
   //Check for Empty Sentence
-  if (Czesci[0].Czesc[S].TotalNotes<=0) then
+  if (Lines[0].Line[S].TotalNotes<=0) then
     exit;
 
   //Set Max Note Points
@@ -1327,12 +1327,12 @@ begin
     //PhrasenBonus - Line Bonus Mod
 
     //Generate Steps 0 to 8
-    A := Floor(A / (B * Czesci[0].Czesc[S].TotalNotes / Czesci[0].Wartosc) * 8);
+    A := Floor(A / (B * Lines[0].Line[S].TotalNotes / Lines[0].Wartosc) * 8);
 
     If (Ini.LineBonus > 0) then
     begin
       //PhrasenBonus give Points
-      Player[I].ScoreLine := Player[I].ScoreLine + (1000 / (Length(Czesci[0].Czesc) - NumEmptySentences) * A / 8);
+      Player[I].ScoreLine := Player[I].ScoreLine + (1000 / (Length(Lines[0].Line) - NumEmptySentences) * A / 8);
       Player[I].ScoreLineI := Round(Player[I].ScoreLine / 10) * 10;
       //Update Total Score
       Player[I].ScoreTotalI := Player[I].ScoreI + Player[I].ScoreGoldenI + Player[I].ScoreLineI;
@@ -1377,9 +1377,9 @@ procedure TScreenSing.onSentenceChange(S: Cardinal);
 begin
   //GoldenStarsTwinkle Mod
   GoldenRec.SentenceChange;
-  if (Lyrics.LineCounter <= High(Czesci[0].Czesc)) then
+  if (Lyrics.LineCounter <= High(Lines[0].Line)) then
   begin
-      Lyrics.AddLine(@Czesci[0].Czesc[Lyrics.LineCounter]);
+      Lyrics.AddLine(@Lines[0].Line[Lyrics.LineCounter]);
       // addline uses display memory
       // calling draw makes sure, there's the singscreen in it, when the next
       // swap between onscreen and offscreen buffers is done
diff --git a/Game/Code/Screens/UScreenSingModi.pas b/Game/Code/Screens/UScreenSingModi.pas
index 9e48a9a7..05675011 100644
--- a/Game/Code/Screens/UScreenSingModi.pas
+++ b/Game/Code/Screens/UScreenSingModi.pas
@@ -93,7 +93,7 @@ function LoadSound  (const Name: PChar): Cardinal; stdcall;       //Procedure th
 procedure PlaySound (const Index: Cardinal); stdcall;       //Plays a Custom Sound
 
 //Utilys
-function ToSentences(Const Czeski: TCzesci): TSentences;
+function ToSentences(Const Lines: TLines): TSentences;
 
 implementation
 uses UGraphic, UDraw, UMain, Classes, URecord, ULanguage, math, UDLLManager, USkins, UGraphicClasses;
@@ -127,41 +127,41 @@ begin
 
 end;
 
-function ToSentences(Const Czeski: TCzesci): TSentences;
+function ToSentences(Const Lines: TLines): TSentences;
 var
   I, J: Integer;
 begin
-  Result.Akt := Czeski.Akt;
-  Result.High := Czeski.High;
-  Result.Ilosc := Czeski.Ilosc;
-  Result.Resolution := Czeski.Resolution;
-  Result.NotesGAP := Czeski.NotesGAP;
-  Result.TotalLength := Czeski.Wartosc;
-
-  SetLength(Result.Sentence, Length(Czeski.Czesc));
+  Result.Akt := Lines.Akt;
+  Result.High := Lines.High;
+  Result.Ilosc := Lines.Ilosc;
+  Result.Resolution := Lines.Resolution;
+  Result.NotesGAP := Lines.NotesGAP;
+  Result.TotalLength := Lines.Wartosc;
+
+  SetLength(Result.Sentence, Length(Lines.Line));
   for I := low(Result.Sentence) to high(Result.Sentence) do
   begin
-    Result.Sentence[I].Start := Czeski.Czesc[I].Start;
-    Result.Sentence[I].StartNote := Czeski.Czesc[I].StartNote;
-    Result.Sentence[I].Lyric := Czeski.Czesc[I].Lyric;     
-    Result.Sentence[I].LyricWidth := Czeski.Czesc[I].LyricWidth;
-    Result.Sentence[I].Koniec := Czeski.Czesc[I].Koniec;
-    Result.Sentence[I].BaseNote := Czeski.Czesc[I].BaseNote;
-    Result.Sentence[I].HighNote := Czeski.Czesc[I].HighNut;
-    Result.Sentence[I].IlNut := Czeski.Czesc[I].IlNut;
-    Result.Sentence[I].TotalNotes := Czeski.Czesc[I].TotalNotes;
-
-    SetLength(Result.Sentence[I].Note, Length(Czeski.Czesc[I].Nuta));
+    Result.Sentence[I].Start := Lines.Line[I].Start;
+    Result.Sentence[I].StartNote := Lines.Line[I].StartNote;
+    Result.Sentence[I].Lyric := Lines.Line[I].Lyric;     
+    Result.Sentence[I].LyricWidth := Lines.Line[I].LyricWidth;
+    Result.Sentence[I].Koniec := Lines.Line[I].Koniec;
+    Result.Sentence[I].BaseNote := Lines.Line[I].BaseNote;
+    Result.Sentence[I].HighNote := Lines.Line[I].HighNote;
+    Result.Sentence[I].IlNut := Lines.Line[I].IlNut;
+    Result.Sentence[I].TotalNotes := Lines.Line[I].TotalNotes;
+
+    SetLength(Result.Sentence[I].Note, Length(Lines.Line[I].Note));
     for J := low(Result.Sentence[I].Note) to high(Result.Sentence[I].Note) do
     begin
-      Result.Sentence[I].Note[J].Color := Czeski.Czesc[I].Nuta[J].Color;
-      Result.Sentence[I].Note[J].Start := Czeski.Czesc[I].Nuta[J].Start;
-      Result.Sentence[I].Note[J].Length := Czeski.Czesc[I].Nuta[J].Dlugosc;
-      Result.Sentence[I].Note[J].Ton := Czeski.Czesc[I].Nuta[J].Ton;
-      Result.Sentence[I].Note[J].TonGamy := Czeski.Czesc[I].Nuta[J].TonGamy;
-      //Result.Sentence[I].Note[J].Text := Czeski.Czesc[I].Nuta[J].Tekst;
-      Result.Sentence[I].Note[J].FreeStyle := Czeski.Czesc[I].Nuta[J].FreeStyle;
-      Result.Sentence[I].Note[J].Typ := Czeski.Czesc[I].Nuta[J].Wartosc;
+      Result.Sentence[I].Note[J].Color := Lines.Line[I].Note[J].Color;
+      Result.Sentence[I].Note[J].Start := Lines.Line[I].Note[J].Start;
+      Result.Sentence[I].Note[J].Length := Lines.Line[I].Note[J].Dlugosc;
+      Result.Sentence[I].Note[J].Ton := Lines.Line[I].Note[J].Ton;
+      Result.Sentence[I].Note[J].TonGamy := Lines.Line[I].Note[J].TonGamy;
+      //Result.Sentence[I].Note[J].Text := Lines.Line[I].Note[J].Tekst;
+      Result.Sentence[I].Note[J].FreeStyle := Lines.Line[I].Note[J].FreeStyle;
+      Result.Sentence[I].Note[J].Typ := Lines.Line[I].Note[J].Wartosc;
     end;
   end;
 end;
@@ -236,7 +236,7 @@ begin
   //Music.MoveTo(AktSong.Start);
 
   //Init Plugin
-  if not DLLMan.PluginInit(TeamInfo, PlayerInfo, ToSentences(Czesci[0]), LoadTex, Print, LoadSound, PlaySound) then
+  if not DLLMan.PluginInit(TeamInfo, PlayerInfo, ToSentences(Lines[0]), LoadTex, Print, LoadSound, PlaySound) then
   begin
     //Fehler
     Log.LogError('Could not Init Plugin');
@@ -574,7 +574,7 @@ end;
 
   if ((ShowFinish) AND (NOT Paused)) then
   begin
-    if not DLLMan.PluginDraw(Playerinfo, Czesci[0].Akt) then
+    if not DLLMan.PluginDraw(Playerinfo, Lines[0].Akt) then
     begin
       if not FadeOut then begin
           Finish;