Delphi Code - Close Others Application

procedure TForm1.Button1Click(Sender: TObject);
var
 MyHandle: THandle;
begin
 MyHandle:=FindWindow(nil, 'Delphi Help');
 SendMessage(MyHandle, WM_CLOSE, 0, 0);
end;