unit Unit18;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,ssl_openssl,imapsend, Vcl.StdCtrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdMessageClient, IdIMAP4, sButton;

type
  TForm18 = class(TForm)
    sButton1: TsButton;

    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form18: TForm18;
  IMAP: TimapSend;

implementation

{$R *.dfm}

procedure TForm18.sButton1Click(Sender: TObject);
begin
  IMAP := TIMAPSend.Create;

  IMAP.TargetHost := 'imap.yandex.ru';
  IMAP.TargetPort := '933';
IMAP.UserName := 'black.golle';
IMAP.PAssword := 'j98j9j01';
  IMAP.FullSSL:=true;
  showmessage(IMAP.ResultString);


end;

end.