Die Problematik hatte ich auch, bei mir reicht es, wenn ich mittels Timer die Verbindung regelmässig erneuere (sinngemäss):
Delphi-Quellcode:
procedure TFMD.JvTimer1Timer(Sender: TObject);
var
Status : Boolean;
begin
Status := FMD.Verbindung_erneuern;
end;
function TFMD.Verbindung_erneuern : Boolean;
begin
IF ZCon.Ping THEN Result := True
ELSE
Try
ZCon.Connect;
Except
Result := True;
end;
end;