O que a de errado com meu programa?(ta bom assim zoom!!!!!!)

É O SEGUINTE FIZ UMA APLICAÇÃO PARA FECHAR UM PROGRAMA EM UMA MAQUINA REMOTA SO Q QUANDO O CLIENTE SE CONECTA COM O SERVER ...O SERVER DA PAÚ

ESTE É O CODIGO DO SERVER

unit proser;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ScktComp;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
Timer1: TTimer;
Edit1: TEdit;
ServerSocket1: TServerSocket;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall;
var caption: Array [0..128] of Char;
begin
Result := True;
if IsWindowVisible(Wnd) and
((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
(HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow))and
((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0)
then
begin
SendMessage( Wnd, WM_GETTEXT, Sizeof(caption),integer(@caption));
lb.Items.AddObject( caption,TObject( Wnd ));
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.Clear;
EnumWindows( @EnumWindowsProc, integer( listbox1 ));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var Pro:pchar;
begin
pro:= pchar(edit1.text);
if pro <> ´d´then PostMessage(FindWindow(nil, pro ), WM_CLOSE,0,0);
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
edit1.text:=(Socket.ReceiveText);
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ServerSocket1.Socket.SendText(listbox1.Items.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.click;
end;

end.

------------------------------------
E ESTE DO CLENTE
-----------------------------------

unit procli;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
ClientSocket1: TClientSocket;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
listbox1.Items.Text:=(socket.ReceiveText);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(listbox1.items[listbox1.itemindex]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Host:= edit1.text;
ClientSocket1.Open;
end;

end.

-----------------------
O Q ESTÁ ERRADO???????????