Fremdes Programm in VCL öffnen

[Lolzor]

Also ich habs mit Shellexecute gemacht

sieht jetzt so aus

Delphi-Quellcode:

procedure TForm38.Button1Click(Sender: TObject);
begin
  if ShellExecute(Application.Handle,
                 'open',
                 PChar('C:\hhm.exe'),
                 Nil, Nil, SW_NORMAL) <= 32 then
    ShowMessage('Es ist ein Fehler aufgetreten');
end;

so jetzt krieg ich aber die Message zu sehn und nicht das programm
Ich hab mir bereits auch schon tutorials angeguckt wäre auch zufrieden wenn mit einfach jemand mal den Code schreiben könnte ihn erklärt und fertig