Сохранение в .txt

[SKS]

Всем привет!
Пишу программу в которую будет забиваться текстовая информация и информация будет сохраняться в текстовый документ с расширением .txt
вот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add('Локация: '+Edit1.Text);
Memo1.Lines.Add('Торговец: '+Edit2.Text);
Memo1.Lines.Add('Шмотка №: '+combobox1.Text);
Memo1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('text.txt');
end;

Как реализовать чтобы можно было сохранять под разными именами? А то забив к примеру одну информацию, и сохранив, следующее сохранение делается с таким же именем text.txt и затирает предыдущие записи.
Подскажите пож-ста!

[Кольша]

Memo1.Lines.SaveToFile(inttostr(random(100))+'text.txt');

[SKS]

Спасибо! Я с рандомайзером ни разу еще не работал =)

[Кольша]

можно еще так

var
s:string;
begin
s:=inttostr(random(100))+'text.txt';
while fileexists(s) do////пока есть  файл с таким именем
s:=inttostr(random(100))+'text.txt';/////меняем имя
Memo1.Lines.SaveToFile(inttostr(random(100))+'text.txt');

[SKS]

спасибо! А как сделать так чтобы сохранялось с именем указанном например в компоненте edit

[Кольша]

var
s:string;
begin
s:=вашедит.text+'.txt';
if fileexists(s) then  showmessage('Файл с именем :'+s+' существует')else
Memo1.Lines.SaveToFile(s);

[SKS]

Спасибо огромное! Отлично все работает!

[SKS]

Извините что завалил вопросами, но раз уж затронули темы сохранить с именем определенным, а как загрузить с определенным именем?
Memo1.Lines.LoadFromFile('text.txt' );
чтобы вместо например text.txt можно было указать имя другое и его загрузить.

[Зод]

По аналогии
var
u : string;
begin
u:=Edit1.Text + '.txt'
Memo1.Lines.LoadFromFile(s);

Но вообще я бы вам не рекомендовал использовать все это. Горадно лучше через диалог открыть проводник и указать куда и что сохранять. Так программам редакторам проще работать)

[SKS]

Спасибо за помощь и советы! Всем +