
17.12.2008, 20:31
|
|
Новичок
Регистрация: 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
|
|
|