Ejecutar un Programa desde delphi

[wcbs]

Gracias amigo cancun por ayudarme

mira ahora ya no da los errores pero te pongo por acá como tengo el código de seguro encontraras mis errores de por que no trabaja, este es como lo tengo y asta ahora estoy probando por abrir
el notepad para probar.

Código Delphi [-]
program Project2;

{$APPTYPE CONSOLE}

uses  ShellApi, SysUtils, Forms, DBTables, Windows, Printers, WinSpool, Classes;
function Ejecutar(Programa:String;Esperar:Boolean=True):Boolean;
var ProcInfo:TProcessInformation;
    Info:TStartupInfo;

begin
  ShellExecute(0,'open', 'notepad.exe','','C:\windows',0);

FillChar(Info,SizeOF(Info),0);
  Info.cb:=SizeOf(Info);
  Info.dwFlags:=STARTF_USESHOWWINDOW;
  Info.wShowWindow:=SW_SHOWNORMAL;
  Result:=CreateProcess(nil,PChar(Programa),nil,nil,False,0,nil,nil,Info,ProcInfo);
  if Esperar then
    while WaitForSingleObject(ProcInfo.hProcess,100)=Wait_TimeOut do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Break;
    end;
end;

  { TODO -oUser -cConsole Main : Insert code here }
end.

dale un vistazo e indicame donde esta mi error... por favor..