IMAP Mail ru sear test

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, imapsend, StdCtrls, sButton, sMemo, ssl_openssl;

type
  TForm1 = class(TForm)
    log: TsMemo;
    sButton1: TsButton;
    log2: TsMemo;
    procedure sButton1Click(Sender: TObject);
    procedure DataFilter(Sender: TObject; var Value: AnsiString);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DataFilter(Sender: TObject; var Value: AnsiString);
begin
  Log.Lines.Add(Value);
end;

procedure TForm1.sButton1Click(Sender: TObject);
  var
    Imap:TIMAPSend;
    MessList:TStringList;
begin
Imap:=TIMAPSend.Create;
MessList:=TStringList.Create;
Imap.Sock.OnReadFilter:=DataFilter;
Imap.TargetHost:='imap.mail.ru';
Imap.TargetPort:='993';
Imap.UserName:='bilka00@mail.ru';
Imap.Password:='';
Imap.AutoTLS:=True;
Imap.FullSSL:=True;
//Imap.ResultString здесь последний ответ
Imap.Login;

IMAP.SelectFolder('INBOX');
if не мейлру then
    ищем вот так IMAP.SearchMess('TEXT "'+Search[0]+'"',LaterSearch)
    else (если все таки мейлру)
    IMAP.IMAPcommand('FETCH 1:150 BODY[HEADER]');
    и розбираеш ответ от сервера (поколупай сам думаю вкуриш)
Log2.Text:= MessList.Text;
Imap.Logout;
Imap.Free;
MessList.Free;
end;

end.