Вообще блокнот это в некотором смысле база данных. Почему-бы не хранить данные в локальной БД, например в формате акцеса. Будет вам тогда и сохранность данных и удобство поиска в одном флаконе.
ПС: Был неправ, невнимательно прочитал сообщение. Я понял что вам надо - вам нужна функция возвращающая уникальное имя файла. Например можно так:
Код:
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;