var
midiFile: file of byte;
begin
AssignFile(midiFile, '/windows/C/paketu/Kim.mid');
FileMode := 0;
 Reset(midiFile);  
CloseFile(midiFile);
end;

fst.Seek(4, spBegin);     //'MThd'
fst.Seek(1, spCurrent);
fst.Seek(1, spCurrent);  

type

 // Объявление записи клиента
 TCustomer = Record
   greep : String[50];
  // lastName  : String[30];
 end;

 { TForm1 }

 TForm1 = class(TForm)
   Button1: TButton;
   Button2: TButton;
   Memo1: TMemo;
   StringGrid1: TStringGrid;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { private declarations }
 public
   { public declarations }
 end;

var
 Form1: TForm1;
   STF_text : string;
 STF_file : text;
{ Dummy variable, current Track: }
 tel : byte;     trk : word;
{ Decide whether to Adapt or not: }
 OK : boolean;
 nr : byte;
 tijd : Longint;
   i2:integer=1;
{************************************}

implementation

{ TForm1 }

{************************************}

procedure Read_Parameters;
begin
// if ParamCount <> 2 then Some_Help;
 SourceText := '/windows/C/paketu/Amore_no.kar'; // '/home/user/Desktop/Amore_no.kar'
 STF_Text := '/windows/C/12.txt';

  ///windows/C/paketu/Aktrisa.kar  /windows/C/11.txt
{ if ouder(Paramstr(0), STF_Text) and
    ouder(SourceText , STF_Text) then
 begin
   Writeln('Nothing to do.') ; Halt;
 end; }

 Assign(SourceFile, SourceText);
 {$I-}
 Reset(SourceFile, 1);
 {$I+}
 if IOresult <> 0 then
 begin
 { If the source MidiFile does NOT exist: }
  // Writeln(SourceText, ' not found.');
   Halt;
 end;

 AssignFile(STF_File, STF_Text);
 Rewrite(STF_File);
end;

{************************************}

{************************************}

procedure verwerk_tekst;
var
// greep : string[50];
 customer : TCustomer;
 i, j : byte;

begin
 R := R + 2;
 tel := Get_Byte(R);
 Aantal := Aantal - Longint(tel) - 2;
 customer.greep[0] := char(tel);
 for k := 1 to tel do
 begin
   R := R + 1;
   nr := Get_Byte(R);
   customer.greep[k] := char(nr);

                  inc(i2);
        form1.StringGrid1.RowCount:=i2+5;
     form1.StringGrid1.Cells[1,i2]:= Utf8ToAnsi(customer.greep);

   //form1.memo1.text:=form1.memo1.text+Utf8ToAnsi(char(nr)); //************
 end;

 if customer.greep[1] = '\' then
{ New verse: }
 begin
   customer.greep := '/';
   Writeln(STF_file);

 end;
 if customer.greep[1] = '/' then
{ New line: }
 begin
   customer.greep[0] := char(tel-1);
   for k := 2 to tel do
     customer.greep[k-1] := customer.greep[k];
   Writeln(STF_file);
   Write(STF_file,Utf8ToAnsi(customer.greep));

// form1.memo1.lines.add(Utf8ToAnsi(char(tel-1)));    ///*************
   Exit;
 end;

 if (customer.greep[1] = '@') and (customer.greep[2]<>'T') then Exit;
{ Title material : }
 if (customer.greep[1] = '@') then
 begin
   customer.greep[0] := char(tel-2);
   for k := 3 to tel do
     customer.greep[k-2] := customer.greep[k];
   Writeln(STF_file,customer.greep);

// form1.memo1.lines.add(char(tel-2));    ///*************
   Exit;
 end;

{ Escape sequence: }
 i := 1;
 for k := 2 to tel do
 begin
   i := i + 1;
   if (customer.greep[i] = ' ') or (customer.greep[i] = '-') then
   begin
     for j := i to tel do
       customer.greep[tel-j+i+1] := customer.greep[tel-j+i];
     customer.greep[i] := '\';
     i := i + 1;
     tel := tel + 1;
   end;
 end;
 customer.greep[0] :=char(i);

 if customer.greep[1] = char(' ') then
 begin
   Write(STF_file,customer.greep);
// form1.memo1.lines.add(Utf8ToAnsi(char(i)));    ///*************
   end
 else
 begin
   Write(STF_file,'_'+customer.greep);
//  form1.memo1.lines.add(Utf8ToAnsi(customer.greep));    ///*************
   end;
end;

{************************************}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Read_Parameters;

 Read_MidiFile;

 R := 1;
 Check_MidiFile_Header;
 if soort <> 1 then
 begin
//   Writeln('Not a type 1 MidiFile');
   Halt;
 end;
 Write('# bytes =');
{ Loop through all tracks: }
 for trk := 1 to tracks do
 begin
   Check_Track_Header;
   if trk-1 <> 2 then
   begin
     R := R + Aantal;
     Continue;
   end;
   while Aantal > 0 do
   begin
     tijd := Get_Delta_Time;
     OK := New_Status;
     kind := (status shr 4);
     nr := Get_Byte(R+1);
     if kind = 15 then
       if (status=$FF) and (nr=1) then
       verwerk_tekst
       else tel := byte(Skips_Meta_Event)
     else tel := Skips_Midi_Event;
     if Aantal <= 0 then End_of_Track;
   end;
 end;
 Writeln;
 if R < Gelezen then Writeln('Not at EOF');
 if R > Gelezen then Writeln('Beyond EOF');

 Writeln(STF_file);
 CloseFile(STF_file);
//memo1.Lines.LoadFromFile('/windows/C/12.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);

var
i:integer;
st:string[1];
myFile : TextFile;
text1: string;
begin   {
st[0]:='r';
//ShowMessage(st[0]);

form1.memo1.lines.Append(st);      ///*************
        }
       //  memo1.Lines.LoadFromFile('/windows/C/12.txt');
         // memo1.text:=Utf8ToAnsi(memo1.text);

                       // myFile:='/windows/C/12.txt';
                        AssignFile(myFile, '/windows/C/12.txt');
                        Reset(myFile);
           while not Eof(myFile) do
 begin
   ReadLn(myFile, text1);
   ShowMessage(text1);
 end;
end;