void __fastcall TForm1::Button1Click(TObject *Sender)
{
 IdSMTP1->Host = "smpt.meta.ua";
 IdSMTP1->Port = 465;
 IdSMTP1->Username = "roctik1996@meta.ua";
 IdSMTP1->Password = "********";
 IdSMTP1->AuthType = satDefault;


 IdSMTP1->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
 IdSMTP1->UseTLS = utUseImplicitTLS;

 IdSMTP1->Connect();

 IdMessage1->Clear();
 IdMessage1->Encoding = mePlainText;
 IdMessage1->ContentType = "text/plain";
 IdMessage1->CharSet = "UTF-8";
 IdMessage1->ContentTransferEncoding = "base64";
 IdMessage1->Subject = "Hi";
 IdMessage1->Body->Assign(Memo1->Lines);
 IdMessage1->From->Text = "roctik1996@meta.ua";
 IdMessage1->Recipients->EMailAddresses = "roctik1996@gmail.com";

 IdSMTP1->Send(IdMessage1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
IdSMTP1->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
}