memo , plik txt , shellexecute..help

Mam taki kodzik do wyszukiwania plikow :

procedure TForm1.ZnajdzPlik(Sciezka,NazwaPliku:String);
  var
  FSearchRec,DSearchRec:TSearchRec;
  FindResult:integer;

function GetDirectoryName(Dir:String):String;
  begin
  if Dir[Length(Dir)]<>'\' then
  Result:=dir+'\'
  else
  Result:=Dir;
  end;

function IsDirNotation(AdirName:String):Boolean;
  begin
  Result:=(AdirName='.') or (AdirName='..');
  end;
  begin
  Sciezka:=GetDirectoryName(Sciezka);
  FindResult:=FindFirst(Sciezka+NazwaPliku,faAnyFile+faHidden+faSysFile+faReadOnly,FSearchRec);
  try
  while FindResult = 0 do
  begin
  ListBox1.Items.Add(Sciezka+FsearchRec.Name);
  FindResult:=FindNext(FSearchRec);
  end;
  FindResult:=FindFirst(Sciezka+'*.*',faDirectory,DSearchRec);
  while FindResult=0 do
  begin
  if ((DSearchRec.Attr and faDirectory)=faDirectory) and not IsDirNOtation(DSearchRec.Name) then
  ZnajdzPlik(Sciezka+DSearchRec.Name,NazwaPliku);
  FindResult:=FindNext(DSearchRec);
  end;
  finally
  FindClose(FSearchRec);
 end;
end;

Moje pytanie jest nastepujace jak wynik ich wyszukiwania wpisac do pliku txt np: wynik.txt , nastepnie chcialbym aby wszystkie linie z tego pliku(lokalizacje plikow szukanych) zostaly odczytane, wpisane w ShellExecute(dir + kazda linia z tego pliku) a wynik ich dzialania dopisany do jakiegos inne pliku np: ble.txt :-]
Moze duzo wymagam ale jest mi to dosc potrzebne.
Z gory dziekuje za otrzymana pomoc.

ListBox1.Items.Add(Sciezka+FsearchRec.Name);

Tutaj sobie już dodajesz do kontrolki.. więc jaki problem jest z zapisaniem tego do pliku tekstowego?

faktycznie :-]
a moje kolejne pytanie jest nastepujace... jak odczytac wszystkie zapisane w pliku txt linie ? nie chodzi mi tu o zadne wczytanie tego do memo czy listbox'a ale o uzycie w locie kazdej z osobna linii z pliku txt.

TStringList

AssignFile() + Reset() + ReadLn() + F1