Вот так попробуй program Batnik;
uses
Windows,ShellAPI;
Var
Bat :TextFile;
i1,i2,i3,i4,i5,iv:string;
begin
i1:='Bat.Bat';
i3:='@ECHO OFF';
i2:='cls';
i4:='Echo - Hello © 2010';
iv:='pause ';
AssignFile(Bat,i1);
ReWrite(Bat);
WriteLn(Bat,i3);
writeLn(Bat,i2);
WriteLn(Bat,i2);
WriteLn(Bat,i4);
WriteLn(Bat,i5);WriteLn(Bat,i5);
WriteLn(Bat,iv);
CloseFile(Bat);
ShellExecute(0, NIL, 'Bat.bat', NIL, NIL, SW_RESTORE);
end.
