Nazwy plików

Mam małe pytanko jak można zrobić coś takiego, żeby program przy zapisie pliku do konkretnego katalogu, sprawdzał jakie są tam pliki i zapisał pod kolejna nazwą? (tzn. w katalogu sa powiedzmy pliki 1.txt, 2.txt, 3.txt - jak zrobić aby program wiedział że teraz ma zapisać coś jako plik 4.txt a pożniej pod 5.txt, no i oczywiście, aby jeśli nie ma jeszcze w tym katalogu żadnego pliku to zrobił 1.txt)

FindFirst, FindNext, F1, rozum, wyszukiwarka, google, faq, ni pisz wirusa, szukaj zanim zapytasz...

FindFirst, FindNext, F1, rozum, wyszukiwarka, google, faq, ni pisz wirusa, szukaj zanim zapytasz...

A można troszkę jaśniej jak to zrobić ??

juhas, a co ze zmiana katalogu? jesli zapisujemy caly czas jako np: plik01, plik02 to tak, a co jesli chcemy zapisac jako ttt? z tym ze sa juz tam pliki: ttt01, ttt02? musi program szukac plikow i nazwy pod ktora chcemy zapisac plik, (czyli findfirst, findnext, albo w prostszy chcoc malo elegancki sposob: filelistbox), wtedy trzeba odnalezc poczatkowy czlon nazwy (np. "ttt"), potem sprawdzic najwyzsza wartosc i dodac wartosc o 1, potem zapisac.

Aha, do anonima (batmana?), to co ci tlumacza to jak dostac sie do pomocy :-D , czyli nacisnij F1 albo help>topics (chyba;) )

pozdrawiam

var
  sr: TSearchRec;
  Max, Buf, code: Integer;
begin
  Max := 0;
  if FindFirst('c:\*.txt', faAnyFile, sr) = 0 then
  begin
    repeat
      if (sr.Attr and faAnyFile) = sr.Attr then
      begin
        Val(ChangeFileExt(ExtractFileName(sr.Name), ''), Buf, code);
        ShowMessage(sr.Name);
        if code = 0 then
          if Buf > Max then
            Max := Buf;
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  ShowMessage(IntToStr(Max+1));
end;