Показать сообщение отдельно

  #7  
Старый 17.12.2008, 20:31
Karacь
Новичок
Регистрация: 14.11.2007
Сообщений: 11
Провел на форуме:
16465

Репутация: 0
По умолчанию

Всё хорошо но в это коде когда запускаю вылазиет ошибка.

ps код
Код:
procedure TForm3.FormCreate(Sender: TObject);
label send;
var
 msg:TIdMessage;
 a:string;
begin
IdSMTP1.AuthType := atDefault;
IdSMTP1.Username:='5465446';
IdSMTP1.Password:='6565566565';
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Connect();
begin
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 IdSMTP1.Connected=True then IdSMTP1.Send(Msg);
end;
IdSMTP1.Disconnect;
end;
Sleep(30000)
goto send;
end;
end;
Где красным там ошибка. На слове sleep он не хочет работать пишет
Код:
[DCC Error] Unit3.pas(72): E2029 Declaration expected but identifier 'Sleep' found