Delphi-Quellcode:
procedure TForm1.Btn2Click(Sender: TObject);
var num:longint;
msg:TIdMessage;
begin
msg := TIdMessage.Create(NIL);
msg.Clear;
num:=POP.CheckMessages;
// das nur machen, wenn auch Messages drauf sind
// rufst Du hier alle auf einmal oder nur eine
// ab und wenn ja, welche?
POP.Retrieve(num,msg)
// hier Message verarbeiten
msg.Free; // sonst Speicherleck
end;
Ich habe Dir mal das fehlende reingemacht. Dann könnte es gehen, aber getestet habe ich es jetzt nicht. Dir fehlte erst mal nur das Erstellen des Objektes...