Hallo,
kann mir bitte jemand sagen, was daran falsch ist?
Delphi-Quellcode:
program test;
uses
windows,scktcomp;
type
TApp = class(TObject)
Client: TClientSocket;
Public
procedure Start(Sender: TObject);
end;
var
App: TApp;
procedure TApp.Start(Sender: Tobject);
begin
try
App.Client.Create(nil);
except
messagebox(0,'Fehler','Fehler',16);
App.Client.Free;
end;
end;
begin
App.Start(App);
end.
Ich habe Delphi 7 Professional. Wenn ich das Programm starte kommt immer der Fehler.
Danke für die Antworten
mfg,
Torpedo