1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TWS.Execute;
var
  wc: TWndClassEx;
  msg: TMsg;
begin
  with wc do begin
    cbSize:=SizeOf(TWndClassEx);
    Style:=CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc:=@WndProc;
    cbClsExtra:=0;
    cbWndExtra:=0;
    hbrBackground:=GetSysColorBrush(COLOR_3DFACE);
    lpszMenuName:=nil;
    lpszClassName:='WindowClass';
    hIconSm:=0;
    hInstance:=SysInit.hInstance;
    hIcon:=0;
    hCursor:=0;
  end;

  {register Window}
  RegisterClassEx(wc);
  FwndHandle:=CreateWindowEx(0,'WindowClass','',WS_POPUP ,0,0,0,0,0,0,hInstance,nil);
  while getmessage(msg,0,0,0) do //MessageSchleife
  begin
    translatemessage(msg);
    dispatchmessage(msg);
  end;
end;

procedure TWS.WndProc(wnd: HWND; uMsg: Cardinal; wp: Integer; lp: Integer):Integer; stdcall;
begin
  //handel Messages
end;                    

1:
2:
3:
4:

IdClient.Host:=...
IDClient.Port:=...
IDClient.Connect;
IDClient.Socket.ReadBytes(Buffer,9999);