OnClick na obrázek – Delphi – Fórum – Programujte.com

zdravím. s programováním začínám a zkouším si udělat jednoduchou hru, ale potřeboval bych poradit s klikáním na jednotlivé čtverečky. mám je tvořené komponentou TImage. obrázků, na které budu klikat je tam velké množství, ale mají skoro stejnou strukturu programu OnClick. potřeboval bych měnit název obrázku. vždy to číslo za image, pro přehlednost jsempodtrhl ty jedničky, z kterých chi dělat to, na který obrázek kliknu

procedure TForm5.Image1Click(Sender: TObject);
begin
case btn of
  1: begin
    image1.Picture.LoadFromFile(ExtractFilePath(Application.EXEName)+'img/objects/clear.bmp');
  end;
  2: begin
    image1.Picture.LoadFromFile(ExtractFilePath(Application.EXEName)+'img/objects/wall1.bmp');
  end;
  3: begin
    image1.Picture.LoadFromFile(ExtractFilePath(Application.EXEName)+'img/objects/wall2.bmp');
  end;
  4: begin
    image1.Picture.LoadFromFile(ExtractFilePath(Application.EXEName)+'img/objects/wall3.bmp');
  end;
  end;
end;

#1 Starsam
vyřešil jsem polem