Knap med TImage. Kan koden fylde mindre?

Jeg har et program med en del knapper, som jeg har lavet med en TImage, så jeg kan lave billeder til dem. og bruger det her kode til at laver mouse over/down/out. det er der så til alle de forskellige knapper.

---------------------

procedure TForm1.ibtnCharHeightMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ibtnCharHeight.Picture.LoadFromFile('Images\measure_down.bmp');
end;

procedure TForm1.ibtnCharHeightMouseLeave(Sender: TObject);
begin
  ibtnCharHeight.Picture.LoadFromFile('Images\measure_up.bmp');
end;

procedure TForm1.ibtnCharHeightMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ibtnCharHeight.Picture.LoadFromFile('Images\measure_over.bmp');
end;

-----------------

Det virker fint, men jeg synes bare det fylder meget i koden, for meget lidt kode xD
så tænkte på om man kunne lave det mere kompakt, måske i en anden Unit fil, eller en anden måde :)

Håber der er nogen der kan hjælpe :)