[NumLock]

можно. ну если умеешь через TIniFile писать/читать числа, то:

Код:

procedure ...
var
  i: Integer;
begin
  i:=Integer(Shape1.Shape);
  Shape2.Shape:=TShapeType(i);
end;