AddressViolation bei Socket.SendBuf

[k4ni]

Hey,

Ich hab folgendes problem.
Ich habe ein "chat program" von einem TUT-gemacht und da steht das hier drin bei ServerSocket.OnClientConnect

Delphi-Quellcode:

procedure TFrmServer.ServerSocketClientConnect (Sender: TObject; Socket: TCustomWinSocket);
var Nachricht: TChatNachricht;
    var I: Integer;
begin
  MemStatus.Lines.Add ('Status: Neuer Client verbunden');

  Nachricht.NickName := 'Server';
  Nachricht.Text := 'test';
  Socket.SendBuf (Nachricht, SizeOf(Nachricht));

  with ServerSocket.Socket do begin
    Nachricht.Nickname := 'Server';
    Nachricht.Text := 'Jetzt ' + IntToStr(ActiveConnections) + ' Teilnehmer';
    for I := 0 to ActiveConnections-2 do
      Connections[I].SendBuf (Nachricht, SizeOf(Nachricht))
  end; {with}
end;

Geht auch, aber wenn ich da selber etwas senden will per ButtonClick dann gehts aufeinmal nicht, hier der code:

Delphi-Quellcode:

procedure TFrmServer.Button1Click(Sender: TObject);
var
Nachricht: TChatNachricht;
haha: TCustomWinSocket;
begin
  Nachricht.NickName := 'Server';
  Nachricht.Text := 'haha';
  haha.SendBuf(Nachricht, SizeOf(Nachricht));
end;

Wieso geht es oben und hier nicht?