[NumLock]

Код:

1 2 3 4 5 6 7 8

procedure TForm1.FormCreate(Sender: TObject); var   Arr: Array [0..121] of AnsiChar;   MyPointer: PAnsiChar; begin   MyPointer:=@Arr[1];   SomeFunction(0, PAnsiChar('qq'), MyPointer); end;