ajuda com comando fechar programa

Código: 
type 
  TForm1 = class(TForm) 
    ServerSocket1: TServerSocket; 
    procedure ServerSocket1ClientRead(Sender: TObject; 
      Socket: TCustomWinSocket); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; 
  Socket: TCustomWinSocket); 
begin 
if Socket.ReceiveText='abrirserver' then begin 
ShellExecute(handle,'open',PChar('ChatLineBrasil.exe'), '','',Sw_minimize); 
end; 
if Socket.ReceiveText='fecharserver' then begin 
WinExec('taskkill /f /im ChatLineBrasil.exe', Wm_Close); 

end; 
end; 
end.