Проблема со строкой

[Djonik]

Нужно записать в файл текст из Memo.В файл записывается всякая билибирда. Вот код:

Var
stroka :string; kl :Integer; FileProect :TFileStream;
begin
stroka:=Memo.Text+'#';
kl:=Length(stroka);
SetLength(Stroka,kl);
. . .
. . .
FileProect.Write(stroka,kl);
end.

[Ntlegend]

Memo1.Lines.SaveToFile(FileName);

[Djonik]

Если б так просто было, я бы так и сделал. Нужно в один файл несколько таких строк записать. Если объявить String[20] например, то все нормально.

[S@fer]

procedure TForm1.Button1Click(Sender: TObject);
var
   f: TextFile;       // файл
   fName: String[80]; // имя файла
   i: integer;
begin
// запись в файл
   AssignFile(f,'c:\1.txt');
   Rewrite(f);  // открыть для перезаписи
   for i:=0 to Memo1.Lines.Count do // строки нумеруются с нуля
          writeln(f, Memo1.Lines[i]);
   CloseFile(f); // закрыть файл
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   f: TextFile;       // файл
   fName: String[80]; // имя файла
   i: integer;
begin
//добавление в файл
   fName := Edit1.Text;
   AssignFile(f, 'c:\1.txt');
   Append(f);  // открыть для добавления
   for i:=0 to Memo1.Lines.Count do // строки нумеруются с нуля
          writeln(f, Memo1.Lines[i]);
  CloseFile(f); // закрыть файл
end;

[Djonik]

Спасибо большое.