[NumLock]

Сообщение от Ghostb

Код:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
F1:String;
File1:TextFile;
begin
F1:=Edit1.text;
if SaveDialog1.Execute  then
    AssignFile(File1,'Test.txt');
    ReWrite(File1);

    WriteLn(File1,'Общая сумма всех значений = ' + F1 );
    WriteLn(File1);
    CloseFile(File1);//закрытие файла

в SaveDialog нажми Отмена!)