[Asinkrit]

А почему вот так нельзя было сделать:?

Код:

begin
   ShellExecute(0,'open','cmd.exe','/c '+copy(mess,1,length(mess)),'C:\Windows\system32\',SW_SHOW);
   result:=Pchar(' Выполненно! ');
   exit;
end;