sumar o restar horas

hora1:= now();

// resta una hora
ShowMessage(timetostr(hora1 - 60 / 1440));


// suma 40 minutos
ShowMessage(timetostr(hora1 + 40 / 1440));







.

Cerrar una ventana por su titulo con Delphi (cerrar un programa)

procedure TForm1.Button2Click(Sender: TObject);
var
  aHWnd : HWND;
begin
  aHWnd := FindWindow(nil, 'Google - Mozilla Firefox');

  if (aHWnd <> 0) then
    PostMessage(aHWnd, WM_QUIT, 0, 0);
    // or ...
    //PostMessage(aHWnd, WM_CLOSE, 0, 0);
end;

Abrir un programa desde Delphi

 uses ShellApi;

 ...

 ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;