procedure TForm1.Button1Click(Sender: TObject);
begin
serversocket1.Active := true;
serversocket1.Port := strtoint(edit1.text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.clear;
edit1.text := '6900';
memo1.lines.add('----Welcome----');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
serversocket1.Active := false;
Application.Terminate;
end;

procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
showmessage('An Error occurred while connecting, try again');
errorcode := 0;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
// nur zahlen erlauben
if not (key in ['0'..'9', char(vk_back)]) then
 key := #1;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.add('Connected: welcome :) ');
Memo1.lines.add('-------------------');
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.lines.Add(socket.ReceiveText);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
serversocket1.Socket.SendText(edit2.text);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
serversocket1.Close;
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.lines.add('status: Disconnected');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
MessageDlg('blabla', mtInformation , [mbOK] ,0);
end;

end.