function SHRunDialog 
  (Owner, IconHandle, Unknow: longint; Title, Prompt: Pchar; Flags: longint): 
    longint; 
  stdcall; external 'Shell32.dll' INDEX 61; 
 
procedure ausfuehren(AnzeigeLetzterBefehl, modal: boolean; icon: Hicon); 
var 
  flg, own: longint; 
begin 
  if modal then own := application.handle else own := 0; 
  if AnzeigeLetzterBefehl then flg := 0 else flg := 2; 
  shrundialog(own, icon, 0, 'Ausführen', 
    'Geben Sie den Namen eines Programms, Ordners, ' + 
    'Dokuments oder einer Internetressource an.', flg); 
end; 
 
// Beispielaufruf 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  ausfuehren(true, true, application.icon.handle); 
end;