Почта(прием email'ов)

[Михаил К]

Доброго времяни суток!
Недавно захотел сделать клиент для приема email сообщений(к примеру с yandex.ru)

На форме компоненты: Button(при нажатии на кнопку происходит проверка и отображение писем в Memo1), 3x Label: Label1, Label2, Label3(Тема, Отправитель, Дата), Memo1(текст сообщения), idpop31, idMessage1.

idpop31
properties:
BoundPort 110;
Host pop3.yandex.ru;
password {пароль ящика};
Username {логин ящика(example)};


КОД:
unit po4ta;

interface

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

type
TForm1 = class(TForm)
IdPOP31: TIdPOP3;
IdMessage1: TIdMessage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function UpMessage: longint;
end;

var
Form1: TForm1;
msgCount: integer;

implementation

{$R *.dfm}

{ TForm1 }

function TForm1.UpMessage: longint;
var
i, msgCount: integer;
begin


idpop31.Connect;
MsgCount:=idpop31.CheckMessages;

if msgCount>0
then
begin
for i:=1 to MsgCount do
begin
idmessage1.Clear;
idpop31.Retrieve(i, idmessage1);
label1.caption:=idmessage1.Subject;
label2.Caption:=idmessage1.From.Add ress;
memo1.Text:=idmessage1.Body.Text;
Label3.Caption:=datetostr(idmessage 1.Date);
idpop31.Disconnect;
end
end
else
begin
form1.Caption:='Ïèñåì íåò';
idpop31.Disconnect;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
UpMessage;
end;
end.



Проблема:
Программа компилируется, но при нажатии на кнопку ... {см приложение}

[Михаил К]

Кто-нибудь поможет?

[Пепел Феникса]

ну в ошибке все указано, connect кто делать будет?

[Михаил К]

спасибо, все понял;