idtcpserver probleme im chat

[d_v]

hallo an allen delphianer.
ich bin ziemlich neu im delphi und sher neu in indy10.
wollte einen einfachen chat aufbauen und habe mir die indy demos unter die lupe gennomen.
mit dem clienten hate ich kein problem aber der server will nicht funktionieren.
hier ist der cod fur den client:

Delphi-Quellcode:

unit chat_1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdTCPServer, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Button3: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    client: TIdTCPClient;
    server: TIdTCPServer;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
linie:string;
begin
form1.Caption:='Client';
button2.Visible:=false;
button3.Visible:=false;
if client.Connected then client.Disconnect
else
begin
client.Port:=strtoint(edit2.Text);
client.Host:=edit3.Text;
client.Connect;
memo1.Lines.Clear;
try
linie:=client.IOHandler.ReadLn;
memo1.Lines.Add(linie);
except
showmessage('keine verbindung');
end;
end;

end;

procedure TForm1.Button4Click(Sender: TObject);
var
linie:string;
begin
client.IOHandler.WriteLn(edit1.text);
memo1.Lines.Add('Client:'+edit1.text);
edit1.Text:='';
linie:=client.IOHandler.ReadLn;
memo1.Lines.Add('Server:'+linie);

end;

end.

kann mir jhemand ein bischen helfen um denn server zu bauen?
zum beispiel wiess ich nicht who die IP adresse eigetragen verden muss.und wie finde ich die IP adresse aus?
vieleicht kont ihr mir ein guten tutorial mit indy componenten forschlagen.

[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]