procedure TForm1.Button1Click(Sender: TObject);
var
   f: TextFile;
   fName: String[80];
   begin
 
   fName := '1.txt;
   AssignFile(f, fName);
   Rewrite(f); 
   writeln(f, 'Твое сообщение');
   CloseFile(f);

   MessageDlg('сообщение записанов в файл 1.txt',mtInformation,[mbOk],0);
end;