1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
begin
  hwnd :=  Pointer(Form1.Handle);
  withandle := witDLLInit4(hwnd, 0, nil, nil, 0, nil);
end;                    

1:
2:
3:
4:

procedure TForm1.Button2Click(Sender: TObject);
begin
  WitDllExit(withandle);
end;                    

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:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
    Command : String;
    temp: String;
begin
  Command := AThread.Connection.ReadLn;
  Command := uppercase(Command);
  if (Command = 'LOADDLL') then    //starten
  begin
      hwnd :=  Pointer(Form1.Handle);
      withandle := witDLLInit4(hwnd, 0, nil, nil, 0, nil);
      temp:='DLL_LOADED' + chr(10);
      AThread.Connection.Write(temp);
  end
  else if (Command = 'UNLOADDLL') then    //beenden
  begin
      WitDllExit(withandle);
      temp:='DLL_UNLOADED' + chr(10);
      AThread.Connection.Write(temp);
  end
  else
  begin
      temp:='NOK:UNKNOWN_COMMAND' + chr(10);
      AThread.Connection.Write(temp);
  end;
end;