Problema con Asignacion a un Objeto.

[BEPAI]

Hola.
Tengo 150 objetos Tpanel y dentro de estos e incustrado un objeto Updown, y los he relacionado para que incrementen. Sin problema.
Ahora quiero ponerlos a un valor determinado en ejecución:....creo un boton y con el evento BitBtnClick quiero hacer la asignacion y este es el código que no me funciona....

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
'Updown'+inttostr(a)+'.Position':=999;
end
else begin
'Updown'+inttostr(a)+'.Position':=0;
end;

end;
end;



Un saludo. Tenéis un portal de muy excelente a muy excelentísimo.