Как работать с текстовым файлом? Опции

[KljaGGsa]

Подскажите пожалуйста, как записать в имеющийся текстовый файл text.txt фрагмент текста в несколько строк, набранный в Edit1 и как можно было бы его обозначить с тем, чтобы потом можно было бы его найти и вывести скажем в Label или Memo?
Заранее спасибо!

[Client]

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  f:System.Text;
begin
  s:=edit1.Text;
  AssignFile(f,'c:\1.txt');
  Rewrite(f);
  writeln(f,s:20);
  delete(s,1,20);
  writeln(f,s);
  CloseFile(f);
end;

Возможно так