TImage zeichnen aber wo und wie oft?

[turboPASCAL]

Probiere es mal aus:

Delphi-Quellcode:

procedure TForm.FormPaint(Sender: TObject);
const
  MaxBilder  =  9;
  BildHoehe  = 32;
  BildBreite = 32
var
  n, i, step: integer;
begin
  canvas.FillRect(ClientRect); // vorher Form.Canvas "leeren"

  step := Form.ClientWidth div MaxBilder; // Schritteite errechnen

  i := 0;
  for n := 0 to MaxBilder-1 do
  begin
    canvas.rectangle(i, 0, i + BildBreite - 1, BildHoehe - 1); // Nunja, Vierecke halt ;-)
    inc(i, step);
  end;
end;