Indy TCP Client Exception

[hesch21]

Hallo DataCool

natürlich läuft das Ding mit dem Debugger. Mal kurz um was es geht. Die Unit übermittelt dem (meinem) Server Lizenzierungsdaten welche dieser prüft. Je nach Ergebnis kommt vom Server ein Lizenzierungsschlüssel oder ein 'No Go' mit einem Fehlercode zurück. Angestossen wird das im Hauptprogramm über einen Button (also keinen Automatismus über einen Timer oder so). Der Fehler tritt erst auf, wenn ich die Funktion im Hauptprogramm über den Button aufrufe.

Die Aufruf-Procedure im Hauptprogramm ist auch recht einfach:

Code:

{Get License from Server}
procedure TComCont.BitBtn1Click(Sender: TObject);
var hili : string;
begin
  if Edit4.Visible and (Edit4.Text <> '') then
     hili := Edit4.Text
  else
     hili    := Label49.Caption;
  Edit3.Text := ALiz.GetLizfromServer('6', hili, Label48.Caption, 'IP');
  if StrToIntDef(copy(Edit3.Text,1,3),0) <> 0 then
     Button8Click(Self)
  else
     begin
     Edit3.Color := clRed;
     ShowMessage('There happened an error. Please consult the manual and try with a manual licensing');
     end;
end;

Wie bereits erwähnt, das ganze funktioniert in 11 anderen Applikationen problemlos mit derselben Unit.