[NumLock]

Код:

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