[Karsh]

Код:

procedure TForm1.btn1Click(Sender: TObject);
begin
  if ShellExecute(Handle, 'open', 'notepad.exe', '', '', SW_SHOWNORMAL) then
    Close
  else
    ShowMessage('Error');
end;