procedure TForm1.Button1Click(Sender: TObject);  var  SMTP: TIdSMTP;   sPort,sHost,sPassword,sUsername,  sFromAddress,sFromName,sToAddress,sToName,
sSubject,sBoby:string;  
begin      
sPort := '587';      
sHost := 'smtp.gmail.com';      
sUsername := '***';      
sPassword := '*****';      
sBoby:='****'; 
sFromAddress:='******@gmail.ru';      
sFromName:='1';      
sToAddress:='****@mail.ru';      
sToName:='1';      
sSubject:='666';      
SMTP:=TIdSMTP.Create;    
SMTP.Host:=sHost;    
SMTP.Port:=strtoint(sPort);    
SMTP.Username:=sUsername;    
SMTP.Password:=sPassword;    
SMTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;    
SMTP.UseTLS:=utUseImplicitTLS;      
IdMessage.Body.Add(sBoby);      
IdMessage.From.Address := sFromAddress;      
IdMessage.From.Name := sFromName;      
IdMessage.Recipients.Add;      
IdMessage.Recipients.Items[0].Address := sToAddress;      
IdMessage.Recipients.Items[0].Name := sToName;  
IdMessage.Subject := sSubject;    
SMTP.Connect;    
SMTP.Send(IdMessage);    
SMTP.Disconnect;    
SMTP.Free;  
end;