procedure TForm1.FileSearch(const PathName, FileName : string; const InDir : boolean);
var
Rec  : TSearchRec;
Path : string;
begin
Path := IncludeTrailingBackslash(PathName);
if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
try
repeat
ListBox1.Items.Add(Path + Rec.Name);
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;
If not InDir then Exit;
if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
try
repeat
if ((Rec.Attr and faDirectory) <> 0)  and (Rec.Name<>'.') and (Rec.Name<>'..') then
FileSearch(Path + Rec.Name, FileName, True);
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s: TStringList;
begin
  s := TStringList.Create;
  s.Add(edit1.Text);
  s.SaveToFile('D:\1.txt');
  s.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s : TStringList;
begin
s := TStringList.Create;
s.LoadFromFile('D:\1.txt');
Edit1.Text := s.Text;
end;