[Karsh]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  P: PChar;
begin
  GetMem(P, 10);
  try
    for i := 0 to 9 do P[i] := Chr(i + 48);
    P[10]:= #0;
    ShowMessage(P);
  finally
    FreeMem(P, 10);
  end;
end;

а не проще использовать string?