[Alegun]

Повторов много, вот такое

Код:

...
 btmpChosen.LoadFromFile('Images\Other\Chosen.bmp');
 btmpChosen.Transparent:= true;
 btmpChosen.transparentMode:= TmFixed;
 btmpChosen.TransparentColor:= RGB(0, 0, 0);
...

можно подсократить вынеся в отдельную процедуру

Код:

procedure ds(img: string; var btmp: TBitmap);
begin
 with btmp do
  begin
   LoadFromFile(img);
   Transparent:= true;
   TransparentMode:= TmFixed;
   TransparentColor:= RGB(0, 0, 0);
  end;
end;

а вот и её вызовы

Код:

...
 ds('Images\Other\Chosen.bmp', btmpChosen);
 ds('Images\Other\CanBeChosen.bmp', btmpCanBeChosen);
 ds('Images\Other\AlreadyEaten.bmp', btmpEaten);
 ds('Images\Other\CanBeEaten.bmp', btmpCanBeEaten);
 ds('Images\Other\CursorIsHere.bmp', btmpCursorHere);
 ds('Images\Other\CanMoveHere.bmp', btmpCanMoveHere);
 ds('Images\Other\DeleteChoiseFromLight.bmp', btmpLightDelete);
 ds('Images\Other\DeleteChoiseFromDark.bmp', btmpDarkDelete);
...