Problem mit Chat

[Tzuxy]

Hallo, hab mich heute mal ans Chat-Tutoial von der Bildzeitung gemacht, wenn euch das was sagt. Delphi kann das Projekt aber nich compiilieren.
Hier mein Sourcecode

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    NMMsg1: TNMMsg;
    NMMSGServ1: TNMMSGServ;
    procedure Button1Click(Sender: TObject);
    procedure NMMSGServ1MSG(Sender: TComponent; const sFrom, sMsg: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
NMMsg1.postit(edit1.text);
Memo1.Lines.append('empfangen:' +sMsg); 

end;

procedure TForm1.NMMSGServ1MSG(Sender: TComponent; const sFrom,
  sMsg: String);
begin
memo1.Lines.append('gesendet:' +edit1.Text);
end;

end.

Das Problem liegt bei sMsg. Irgendwie wird das nicht erkannt.
Wenn das nicht Klarheit liefert hier noch das ganze Pojekt.

[MarkusTh]

Scheint ein Druckfehler in der Bild zu sein :-D

Der Code für procedure TForm1.Button1Click und TForm1.NMMSGServ1MSG muss vermutlich getauscht werden, da ja gesendet wird, wenn Button1 geklickt wird.

[Tzuxy]

So das Programm läuft erstmal.
danke