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