1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function WndProc(wnd: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): LRESULT; stdcall;
begin
  Result := 0;

  case uMsg of
    WM_CREATE:
      begin
        buf := 'Hallo, DeCodeGuru';
        SetWindowText(wnd // <-- !,buf);
      end;
  ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

begin
  ReadInformation;

  Server := TServer.Create(nil);
  with Server do
  begin
    Port := StrToInt(ServerInf.Port);
    OnClientRead := ClientRead;
    OnClientConnect := ClientConnect;
    OnClientDisconnect := ClientDisconnect;
    AuthenticationStatus := 0;
    Open;
  end;

  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;

  ExitCode := Msg.wParam;
end.