[akimov_aleks]

Подскажите новичку как самаму сделать функцию пне ее часто надо использовать...

Код:

begin
IdSMTP1.Host:='mail.kz';
IdSMTP1.Port:=25;
IdSMTP1.Username:='****';
IdSMTP1.Password:='****';
IdMessage1.Body.Text:='переменная1';
IdMessage1.From.Text:='переменная1';
IdMessage1.Recipients.EMailAddresses:='переменная3';
IdMessage1.Subject:='тема';
IdSMTP1.Connect;
if IdSMTP1.Authenticate then
begin
  IdSMTP1.Send(IdMessage1);
  ShowMessage('issended');
end
else
  ShowMessage('not sended');
end;