Createprocess проблема с типом строк

[Ky3Heu,]

Излагаю в коде. Пишу так:

var
  mail: TStringList;
  i,f:Integer;
  fs:TSearchRec;
  St:TStartupinfo;
  pr:TProcessInformation;
  ii,ff:PAnsiChar; //Даже так уже пробую (Char и AnsiChar тоже пробовал)

for i:=1 to f do
begin
 FillChar( St, SizeOf( St ) , 0 );
 with St do 
begin
  cb := SizeOf( St);
  dwFlags := startf_UseShowWindow;
  wShowWindow := 4;
 end;
  if i<10 then
  begin
 ii:=PAnsiChar(i);// Даже так пытался и писал всесто +inttostr(i) просто +ii
//А вот здесь началось 
 Createprocess(nil,'D:\send_mail\blat.exe d:\send_mail\dmp\rar\VGPUdmp.part0'+'0'+IntTostr(i)+'.rar -to vv@gpp.ru -s Dump VGPU file # ',
 nil,nil,false,Create_default_error_mode,nil,nil,st,pr);
 Waitforsingleobject(pr.hProcess,infinite)
 end;
end;

//Вобщем пишет мне компилятор мессагу:
[Error] Unit1.pas(193): Incompatible types: 'String' and 'PAnsiChar'

И теперь вопрос: КАК ЭТО МОЖНО СДЕЛАТЬ ТАК, ЧТОБЫ РАБОТАЛО????

[SERG1980]

Createprocess(nil,PChar('D:\send_mail\blat.exe d:\send_mail\dmp\rar\VGPUdmp.part0'+'0'+IntTostr(i)+'.rar -to vv@gpp.ru -s Dump VGPU file # '),
nil,nil,false,Create_default_error_mode,nil,nil,st ,pr);

[Ky3Heu,]

Мдаааа..... А я пробовал Pchar(IntToStr(i))... А надо было в начале... Век учись млин, а....