CloseFile(ft)

[Пепел Феникса]

Я не вижу мессагу )) значит оно не дошло до сюды)

нашли на чем проверять, чтоб показать сообщение вам нужен цикл.
попробуйте MessageBox там поставить.

[Lemo]

А вот если

program Project1;

uses
  windows,Dialogs;

  var
  msg:Tmsg;
{$R *.res}

begin
ShowMessage('gg');  // сразу выводит меседж
while GetMessage(msg,HInstance,0,0) do
 begin


   TranslateMessage(msg);
   DispatchMessage(msg);

end;

end.

[Пепел Феникса]

потому что цикл сообщений есть(который и показывает сообщение)
но вот вы можете создать окно без цикла сообщений?

[Lemo]

Ок, допустим выполняеться закрытия файла, а чего не выполняеться вызов этой процедуры, которая идет сразу после закрытия файла?

procedure mail;
   begin

 Try
 M:=TIdMessage.Create(nil);
 M.Body.LoadFromFile('1.txt');
 M.From.Text:='ххх'; //Отправитель
 M.Recipients.EMailAddresses:='хххх'; //Получатель
 M.Subject:='tema'; //Тема письма

 //SM.AuthenticationType:=AtLogin;
 SM:=TIdSMTP.Create(nil);
 SM.Host:='smtp.yandex.ru'; //Хост
 SM.Port:=587;
 SM.Username:='ххх'; //Логин вашей почты
 SM.Password:='ххх'; //Пароль
 SM.Connect();
If SM.Connected Then
Begin
 SM.Send(M);
End;
SM.Disconnect;
Except
End;
end;

ЗЫ прошу модераторов не закрывать тему!
ЗЫЫ Большое спс Пепел Феникса, не могу поставить +, так как недавно ставил(

[Пепел Феникса]

у вас точно нет выхода из процесса?

[Lemo]

нету, вот так как выше описывал все

[Vikenty]

Если файл не закрыть то изменения туда могут не записатся

[Пепел Феникса]

вообще то винда закрывает файл при уничтожении процесса.