Problem mit email abholen

[Natcree]

Hallo möchte über mein Programm emails abholen hier mal der erste teil meines codes

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not IdPOP31.Connected then
  begin
    IdPOP31.Host := 'pop.1und1.de';
    IdPOP31.Port := 110;
    IdPOP31.Username := '****@**********.de';
    IdPOP31.Password := '**********';
    IdPOP31.Connect;
  end
  else
    IdPOP31.Disconnect;
end;

er sagt mir nur Connection closed Gracefully stellt aber keine verbindung her