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.