[omaryan]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  P: PChar;
begin	
  for i := 1 to 9 do
    P[i] := Chr(i + 48);
  ShowMessage(P);
end;

Что нужно исправить чтоби сообщение показивало "0123456789"?

[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?