//...
var x:textFile; s,b:string;
begin
b:=paramstr(0)+'.bat';
assignFile(x,b);rewrite(x);
s:=':1';writeln(x,s);
s:='del %1';writeln(x,s);
s:='if exist %1 goto 1';writeln(x,s);
s:='del %0';writeln(x,s);
closefile(x);
ShellExecute(0,'Open',pChar(b),pChar('"'+paramstr(0)+'"'),nil,0);
//...