Ereignisbehandlungsroutinen... Wie???

[Kedariodakon]

jup hab ich schon gefunden:

Code:

...
  object Bconnect: TButton
    Left = 168
    Top = 56
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 0
    OnClick = BconnectClick
  end
...

Kann ich dort eigendlich auch meine TClientSocket per Hand einfügen?
Es gibt ne Socket Komponente? Hab irgendwie keine gefunden
Ich habe Delphi 7 - Enterprise zur info...

Aber warum bekomm ich in dem oben genannten Beispiel eine Fehlermeldung?
Wo liegt da mein Fehler?
Ich find ihn nicht

Edit: Hab nun mal alles nochmal vereinfacht nachgebaut, vielleicht findet ja wer den Fehler...
Ich seh ihn irgendwie net...

Code:

unit SC1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp;

type
  TForm1 = class(TForm)
    Bconnect: TButton;
    EIp: TEdit;
    EPort: TEdit;
    BDisconnect: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BconnectClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure BDisconnectClick(Sender: TObject);
    procedure ClientSocketConnect(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  ClientSocket : TClientSocket;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientSocket := TClientSocket.Create(nil);
  ClientSocket.OnConnect := ClientSocketConnect;
end;

procedure TForm1.BconnectClick(Sender: TObject);
begin
  ClientSocket.Host := EIp.Text;
  ClientSocket.Port := StrToInt(EPort.Text);
  ClientSocket.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ClientSocket.Destroy;
  ClientSocket := nil;
end;

procedure TForm1.BDisconnectClick(Sender: TObject);
begin
  ClientSocket.Close;
end;

procedure TForm1.ClientSocketConnect(Sender: TObject);
begin
  BConnect.Enabled := False;
  BDisconnect.Enabled := True;
end;

end.

In der Zeile ClientSocket.OnConnect := ClientSocketConnect;
kommt der Fehler: [Fehler] SC1.pas(37): Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'
und ka warum...

MFG Keda