[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;

[davin4u]

наверное лучше будет использовать процедуру, что то вроде:

Код:

Procedure TheSend(FHost,FUserName,FPassword,FBodyText,FFromText,FAdress,FSubject:string;FPort:integer);
begin
  IdSMTP1.Host:=FHost;
  IdSMTP1.Port:=FPort;
  IdSMTP1.Username:=FUserName;
  IdSMTP1.Password:=FPassword;
  IdMessage1.Body.Text:=FBodyText;
  IdMessage1.From.Text:=FFromText;
  IdMessage1.Recipients.EMailAddresses:=FAdress;
  IdMessage1.Subject:=FSubject;
  IdSMTP1.Connect;
  if IdSMTP1.Authenticate then
    begin
      IdSMTP1.Send(IdMessage1);
      ShowMessage('issended');
    end
  else
    ShowMessage('not sended');
end;

потом в нужном месте делаешь вызов процедуры так:

Код:

TheSend('mail.kz','***','***','переменная1','переменная2','переменная3','тема',25);