Memorizza il percorso in una variabile locale e passalo alla ShellExecute castandolo al tipo PChar:

codice:
var
  s: string;
begin
  s := ExtractFilePath(Application.ExeName);
  ShellExecute(PChar(s), ...);
end;
(codice non verificato)
Ciao!