[Страдалецъ]

Вообще блокнот это в некотором смысле база данных. Почему-бы не хранить данные в локальной БД, например в формате акцеса. Будет вам тогда и сохранность данных и удобство поиска в одном флаконе.

ПС: Был неправ, невнимательно прочитал сообщение. Я понял что вам надо - вам нужна функция возвращающая уникальное имя файла. Например можно так:

Код:

function UniqualName: String;
Var
  GUID: TGuid;
begin
 CreateGUID(GUID);
 Result := GUIDToString(GUID);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 TFileStream.Create('c:\' + UniqualName + '.tmp', fmCreate);
end;

[AlexandrV]

Как создать временный файл имея путь к папке Temp через WinApi

Код:

function GetTempDir:string;
var
  buf:string;
  len:UINT;
begin
  SetLength(buf, MAX_PATH+1);
  len:=GetTempPath(MAX_PATH, PChar(buf));
  SetLength(buf,len);
  GetTempDir:=buf
end;

Надо функцию которая не только будет создавать временный файл но и возвращать его имя.