Ich bin ziemlich müde und habe möglicherweise überhaupt nichts begriffen, aaaaber dennoch:
Im Client-Programm deklarierst du Client als TMyClientSocket und erzeugst es auch:
Delphi-Quellcode:
...
var Client: TMyClientSocket;
begin
Client := TMyClientSocket.Create;
...
Im damit aufgerufenen Konstruktor erzeugst du es gleich nochmal als TClientSocket.
Delphi-Quellcode:
constructor TMyClientSocket.Create;
begin
inherited Create;
Client := TClientSocket.Create(nil);
end;
Soll das alles so sein? Oder ist Client gar ein Feld innerhalb von TMyClientSocket?
