ANTICHAT - Показать сообщение отдельно - Организация цикла (Delphi 2007)

application.processmessages против sleep не поможет)
если уж со sleep то в отдельном потоке делать

а если по таймеру, то лучше так:

Код:

with TIdSMTP.Create do begin
AuthType := atDefault;
Username:='5465446';
Password:='6565566565';
Host:='smtp.mail.ru';
Connect();
a:=formatdatetime('hh:mm',now);
msg:=TIdMessage.Create(self);
Msg.Subject:='ip';
Msg.Recipients.EMailAddresses:='55665656';
Msg.From.Address:='556454';
Msg.Body.Add(a+'время '+GetLocalip+' айпишник') ;
if Connected=True then Send(Msg);
Disconnect;
Free;
end;//with

так как если idsmtp еще не завершил работу, а пошел новый заход таймера, была бы ошибка или не то, что ожидаешь, а тут старый удаляется, а новый создается

NeXArmAor, sleep в SysUtils