Problem mit TClientSocket (nonVCL)

[Luckie]

App.Client.Create(nil); Das kann nicht gehen. Du musst, wenn du eine Instanz einer Klasse erstellst, selbige einer Variablen vom Typ der Klasse zu weisen.

Delphi-Quellcode:

var
  MyButton: TButton;
begin
  MyButton := TButon.Craete;
  ...;
  ...;

Bzw. bei dir sowas in der Art:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  Windows, ScktComp;

type
  TApp = class
  private
    FClient: TClientSocket;
  public
    procedure Start;
  end;

var
  App: TApp;
  Client: TClientSocket;

procedure TApp.Start;
begin
  App := TApp.Create;
  Client := App.FClient.Create(nil);
end;

begin
  App.Start;
  readln;
end.