Поищи на форуме!!! Тут есть и про MAPI и про создание потоков! Если тебе надо - то ты легко найдешь, главное не ленись. На этом все!

To Baa: Тут у парня похоже другие проблемы, он пока до потоков не дошел и до создание собственных компонент тоже далеко. Пока он не поймет работу с процедурными типами - как присвоить событие компоненту, созданному в Run-time...

Vit, есть такие люди, они исключительно считают нас телепатами..

Чо вы хотите! Я в дельфях всего пол года, ессесенно я не знаю нихрена.
Темболее без мануала. Если бы не такой дорогой i-net, я бы нашёл всё
шо надо в архивах и не достовал бы вас своими глупыми вопросами.

Теперь за дело.
Vit. Фишка заработала. Тока я делаю кропаль по другому.

Procedure TForm1.onDisconnect(Sender:TObject);
begin
showmessage('OK');
end;
/--я эту процедеру не использую--/
Procedure TForm1.DoDisconnect;
begin
Disconnected:=false;
Pop3.Disconnect;
repeat
 application.processmessages;
 sleep(10);
until Disconnected;
end;

Procedure TForm1.CreateComponet;
begin
pop3:=TNMPOP3.create(Form1);
pop3.onDisconnect:=onDisconnect;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
form1.CreateComponet;
pop3.Host:='pop3.bk.ru';
pop3.Port:=110;
pop3.UserID:='Тут товй логин';
pop3.Password:='и пароль';
pop3.Connect;
pop3.Disconnect;
end;

Но есть какойто баг.

Свойство Connected?
А другие события?
onFailure,onHostResolved,onInvalidHost и т.д.

ОК! Начни с простого. Вот пример как создать кнопку руками и зацепить на нее событие. Создай новое приложение, оставь форму пустой, а код модуля смнени на следующий:

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Menus; type  TForm1 = class(TForm)    procedure FormActivate(Sender: TObject);  private    Procedure Click(Sender:TObject);  public  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Click(Sender: TObject); begin  showmessage('!') end; procedure TForm1.FormActivate(Sender: TObject);  var b:Tbutton; begin  b:=TButton.create(Form1);  b.parent:=Form1;  b.OnClick:=click;  b.visible:=true; end; end.

Теперь определи только на форме событие onActivate.

Значит так! Я сделал всё как ты сказал. Пустая форма и твой модуль. До компеляции он выдал вот это:
[Warning] Unit1.pas(13): Method 'Click' hides virtual method of base type 'TControl'

После того, как я скомпилил он выдал окошко с месагом типа Exception EResNotFound.....Resource TForm1 not found. Вобщем он прогу не запустил, даже не показал форму.

Я понял где ошибка!!!!
Эту процедуру  Procedure Click(Sender:TObject); надо описывать не в private, а в public, и тогда всё работает нормально!
И с получением почты тоже всё в норме!

Народ! Помогите! Я ведь никогда не работал ни с классами ни с потоками! Да я нашёл на форуме про потоки, но не знаю как с ними раобраться!
События я научился обрабатывать вручную, но вот остальное!

Пожалуйста для новых вопросов открывайте новые темы. 1 вопрос - отдельная тема  для обсуждения и никак иначе.