[bragol]

все работает вот код. Объявил j, как глобальную переменную в отдельном юните, обнулил ее в FormCreate. не подскажите какова допустимая частота подключения к почтовому серверу, раз в минуту допустим или чаще можно???

Код:

 uses glob;
procedure TForm1.FormCreate(Sender: TObject);
begin
POP3.Host:='pop3.mail.ru'; 
 POP3.Port:=110;          
 POP3.Username:='p-pp'; 
 POP3.Password:='123456';   

 timer1.Interval:=10000;
 timer1.Enabled:=true;
 j:=0;
 end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
pop3.Connect;
i:= pop3.CheckMessages;
memo1.Lines.Add(inttostr(j)+' '+inttostr(i));
 if i>j then begin
 showmessage('У вас новое сообщение!');
 j:=i;
 end;
 pop3.Disconnect;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
pop3.Disconnect;
end;