9 picture problem

[Klaus01]

Zitat von dangerduck:

Delphi-Quellcode:

procedure TForm17.Timer1Timer(Sender: TObject);
type
  skica=timage;
begin
  TImage(FindComponent(skica+IntToStr(random(9)))).show=true
end;