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