Fórum idPOP3 #321348

  TMyThread = class(TThread)
  private
    Mem: TMemo;
    Msg: Integer;
  protected
    procedure Execute; override;
    procedure Incrementa();
  public
    constructor Create(Memo: TMemo; NMSG: Integer; CreateSuspended: Boolean = False);
  end;

constructor TMyThread.Create(Memo: TMemo; NMSG: Integer; CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
Priority:= tpIdle;
FreeOnTerminate:= True;
Mem:= Memo;
Msg:= NMSG;
end;

procedure TMyThread.Execute;
begin
inherited;
Form1.POP.Retrieve(Msg,Form1.MSG);
Synchronize(Incrementa);
end;

procedure TMyThread.Incrementa;
var
i: Integer;
begin
for i:= 0 to Form1.MSG.MessageParts.Count - 1 do
begin
if(Form1.MSG.MessageParts.Items[i] is TIdText) then
Mem.Lines.AddStrings(TIdText(Form1.MSG.MessageParts.Items[i]).Body);
end
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
POP.Connect;
TMyThread.Create(Memo1,1);
TMyThread.Create(Memo2,2);
end;

uses
  SyncObjs,
...

  TMyThread = class(TThread)
  ...
  end;

var
  CSMail: TCriticalSection = nil;

....

procedure TMyThread.Execute;
begin
  inherited;

  if CSMail = nil then
    CSMail := TCriticalSection.Create;
  CSMail.Enter;

  Form1.POP.Retrieve(Msg,Form1.MSG);
  Synchronize(Incrementa);

  CSMail.Leave;
end;
...