Verbindung serverseitig geschlossen - Abhilfe?

[shmia]

Hmm, dein Programmcode gefällt mir nicht so richtig (Formatierung und Inhalt).
Besser so:

Delphi-Quellcode:

function GetMails(const host,userid,passw: string): integer; 
begin
   // richtig einrücken, sonst siehts sch.... aus 
   with form1 do 
   begin 
      pop.Host := host; 
      pop.UserId := userid; 
      pop.Password := passw; 
      mkstatus('Verbinde...'); 
      pop.Connect; 
      if not pop.Connected then  // prüfe, ob Host mich abgelehnt hat
         raise Exception.CreateFmt('Connection terminated by host %s', [host]);
      try  // Resource-Schutzblock
         result := pop.CheckMessages;
      finally
         mkstatus('Trenne...'); 
         pop.Disconnect;
      end;
   end; 
end;

Und später dann:

Delphi-Quellcode:

try
   x := GetMails(ini.readstring('Profil'+inttostr(i+1),'Host',''), 
         ini.readstring('Profil'+inttostr(i+1),'UserID',''), 
         ini.readstring('Profil'+inttostr(i+1),'Password','')); 
   t2 := treeview1.Items.AddChild(t1,ini.readstring('Profil'+inttostr(i+1),'Name','')+' ('+inttostr(x)+' eMails)'); 
except
   on E:Exception do
      t2 := treeview1.Items.AddChild(t1,ini.readstring('Profil'+inttostr(i+1),'Name','')+E.Message); 
end;