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:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, MMSYSTEM, StdCtrls, ExtCtrls, ShellApi,Registry,WinInet,
  OleCtrls, SHDocVw, IdBaseComponent, IdComponent, IdTCPServer, IdFTPServer;

....

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
myString: String;
buff : array[0..MAX_COMPUTERNAME_LENGTH] of char;
nsize : DWORD;
rc : hwnd;

begin
nsize := SizeOf(buff);
myString := Socket.ReceiveText;

.....
...
..
else if MyString = 'FTPaktivieren' then IdFTPServer.Active := true
else if MyString = 'FTPdeaktivieren' then IdFTPServer.Active := false
......
..
end;                    

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

procedure TForm1.Button43Click(Sender: TObject);
begin
IdFTP1.http://FTP.SendText('FTPAktivieren');
end;

procedure TForm1.Button44Click(Sender: TObject);
begin
IdFTP1.http://FTP.SendText('FTPDeaktivieren');
end;                    

1:
2:
3:
4:

procedure TForm1.Button40Click(Sender: TObject);
begin
clientsocket1.socket.sendtext('aufrufen');
end;