POP3 Connect prüfen

[Jerry]

Hallo Leute

Ich möchte mir ein kleines Tool schreiben, bei dem ich den Connect zu einem POP3 Account testen kann.

Hier mein Code:

Delphi-Quellcode:

procedure TForm1.btn_ConnectClick(Sender: TObject);
begin
  try
    IdTCPClient1.Port := StrToInt(edt_Port.Text);
    IdTCPClient1.Host := edt_Host.Text;
    IdTCPClient1.Connect(100);
    if IdTCPClient1.Connected = True then
    begin
      IdTCPClient1.ReadTimeout := 2000;
      IdTCPClient1.SendCmd('USER ' + edt_User.Text);
      memo1.lines.Add(IdTCPClient1.ReadLn(#$A,7500));
      IdTCPClient1.SendCmd('PASS ' + edt_Passwort.Text);
      memo1.Lines.Add(IdTCPClient1.ReadLn(#$A,7500));
      IdTCPClient1.SendCmd('LIST');
      memo1.Lines.Add(IdTCPClient1.ReadLn(#$A,7500));
    end;

  except
    on E: Exception do writeln(E.Message);
  end;
end;

Ich komme leider nur bis zum ersten "ReadLn" danach passiert nichts mehr.
Woran liegt das?
In meiner MemoBox wird nur +OK Passwort required angezeigt.

Wie aber im Programmcode ersichtlich sende ich dass Passwort und sende auch den Befehl List.

Wo ist hier mein Überlegungsfehler?

Danke für Eure Hilfe.

Gruss Jerry

[Andreas L.]

Wieso verwendest du nicht TIdPop3?

[Jerry]

danke für den Tipp, habe ich auf die schnelle nicht gesehen.

ich versuche mal mit dieser Komponente klarzukommen.

Gruss Jerry. ;-)