[NumLock]

у меня тоже Delphi 7, о чем написано в профиле.

Код:

var
  s: String;
begin
  SetString(s, PChar('hello'), 5);
  ShowMessage(s);
end;