все проблема решилась вот что сделал
procedure Run(FileName:string);
var
Si:_STARTUPINFOA;
Pi:PROCESS_INFORMATION;
s,s2:string;
begin
GetStartupInfo(Si);
s:=ExtractFileDir(FileName);
s2:=FileName;
CreateProcess(nil,PChar(s2),nil,nil,false,0,nil,PC har(s),Si,Pi);
end;