вот незнаю.
есть такая процедура
Код:
procedure TfrmScan.MailError;
begin
with frmScan do begin
SysLocale.PriLangID:=LANG_RUSSIAN;
IdSMTP1.Port:=25;
IdSMTP1.Host := 'йцук';
IdSMTP1.Username:='111';
IdSMTP1.Password:='111';
if IdSMTP1.Connected = false then
IdSMTP1.Connect(60000);
IdMessage1.Subject:='Error!';
IdMessage1.Recipients.EMailAddresses:='@.ru';
IdMessage1.From.Address:='.ru';
IdMessage1.From.Name:='qwer';
IdMessage1.Body.Text:=sText;
if IdSMTP1.Connected then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;
end;
И при вызове этой процедуры я присваиваю переменной sText значение