var
  aHandle: HWND;
begin
  aHandle := FindWindow(nil, 'Caption');

  if aHandle <> 0 then
  begin
    SendMessage(aHandle, WM_CLOSE, 0, 0);
  end;

  aHandle := 0;
end;