[NumLock]

Сообщение от gadmaker

Вы не написали как это сделать.

Написали:

Также, но наоборот

Код:

var
  l: TLabel;
  i: Integer;
  k: TLabel;
begin
  l:=TLabel.Create(Self);
  l.Parent:=Self;
  l.Caption:='Lewis Carl Davidson Hamilton';
  i:=Integer(l);
  k:=TLabel(i); (* <-- так *)  
  k.Caption:='"'+k.Caption+'"';
end;