[NumLock]

Код:

procedure setText(var str: String; newText: String);