[icWasya]

Свойства Left,Top,Width и Height есть уже у TControl, поэтому

Код:

var
  C:TControl;
..
if (Components[i] is TControl) then
begin
  C:=TControl(Components[i]);
  C.Left:=round(C.Left*prw);
  C.Top:=round(C.Top*prh);
  C.Width:=round(C.Width*prw);
  C.Height:=round(C.Height*prh);