Ahoj vsem, mam prikaz

ShellExecute(GetDesktopWindow,nil,'cmd.exe',pchar(' start '+edit1.text),pchar(dir1), SW_shownormal);

kdyz toto zadam nespusti se mi console, nevite nekdo jak na to aby se to spustilo v cmd jako kdyz pouziji soubor *.bat.
Program delam pro restart serveru a nestaci *.bat protoze server se obcas sekne a nenajede ani *.bat nepomuze.
Pro consoli zadavam cestu i s *.exe ale najede jen dany adresar kde console je ale aplikace se jiz nespusti.
program funguje tak ze vse hlida z SQL database kdyz padne, program ji ma restartovat ale nic se neprovede.
Pokud dam prikaz

ShellExecute(GetDesktopWindow,nil,pchar(edit1.text),'','', SW_shownormal);

consolova aplikace najede a hned spadne.