Мдя... ты хотя бы copyright оставил! Начал смотреть... Геморрой! Зачем заюзал LZ?! АА потом вспомнил DelphiWorld!

Думаю достаточно.
Процедура запуска программ -
begin
Run - command cmd; //объясни что это?!?!
write format C;
end;
end.

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...