Se puede hacer con:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := ExtractNumber(Label1.Caption);
with TImage(FindComponent('Image'+IntToStr(I))) do
Top := 200;
end;
ExtractNumber e IntToStr no son realmente necesarios pero los puse.
Saludos