Uso de FindComponent

[[Lepe]]

Código Delphi [-]
procedure TFmRegistro.Button1Click(Sender: TObject);
var
i:Integer;
begin
with ScrollB do // <----------------- faltaba esto.
for i:= 0 to ComponentCount -1 do
  if Components[i] is TLabel then
    TLabel(Components[i]).Caption := 'Arpeel';
end;

Tal y como lo tenías, mira en la ventana, pero no dentro del ScrollB.

Saludos