[NumLock]

Код:

var
  PngImage: array [0..9] of TPngImage;
  i: Integer;
begin
  (* Init PngImage where *)
  for i:=0 to 9 do Canvas.Draw(0, 0, PngImage[i]);
end;