Problema con Asignacion a un Objeto.

[BEPAI]

Por favor podrías ponerlo completo, yo lo he modificado en el siguiente sentido:

Código Delphi [-]
 
procedure TPANEL1.BitBtn1Click(Sender: TObject);
var a,resto:smallint;
cad:string;
begin
 
for a:=1 to 150 do begin resto:= a mod 2;
if resto=0 then begin
Findcomponent('Updown'+inttostr(a)).Position:=999;
end
else begin
Findcomponent('Updown'+inttostr(a)).Position:=0;
end;
 
end;
end;

.........y no funciona. Estoy en pañales en esto.
Saludos.