[fran]

A mi con este codigo me funciona sin problmas:

procedure TForm1.Lista1Click(Sender: TObject);
begin

   WinExec(PChar('D:\.....\Fichero.bat'),SW_SHOWNORMAL);

end;

Espero que te sirva,
Un Saludo.