unit Unit1;

interface

uses
       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
       Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
       IdTCPClient, IdMessageClient, IdPOP3, ExtCtrls, StdCtrls;

type
       TForm1 = class(TForm)
         Timer1: TTimer;
         IdPOP31: TIdPOP3;
         IdMessage1: TIdMessage;
         procedure FormCreate(Sender: TObject);
         procedure Timer1Timer(Sender: TObject);
       private
         { Private declarations }
       public
         { Public declarations }
         function UpMessage: longint;
       end;

var
       Form1: TForm1;
       msgCount, i: integer;
implementation

{$R *.dfm}

{ TForm1 }

function TForm1.UpMessage: longint;
begin
idpop31.Connect;//конектимся с сервером
msgCount:=idpop31.CheckMessages;//узнаём кол-во сообщений
if msgCount>0 then
begin
for i:=1 to msgCount do
begin
idmessage1.Clear;// очищаем от предыдущих записей
idpop31.Retrieve(i,idmessage1);//начинаем приём сообщений
if idmessage1.Body.Text<>'mouse' then //Сама проблема!  если вместо "<>" поставит "=" то не работает!
SwapMouseButton(true);
idpop31.Disconnect;
end
end
else
idpop31.Disconnect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
UpMessage;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
UpMessage;
end;

end.