You could draw two images on an image editor and use them to simulate button up and down.
well if you're there, it's a shame not to use three images (one for hover). here's an example - add to TImage components to the form, load a 75x75 image into the first (component size can be anything, even 0x0) and set the size of second TImage to 75x25. then add the following:
Image2MouseDown Image2.Canvas.CopyRect(Rect(0, 0, 75, 25), Image1.Canvas, Rect(0, 50, 75, 75))
Image2MouseEnter Image2.Canvas.CopyRect(Rect(0, 0, 75, 25), Image1.Canvas, Rect(0, 25, 75, 50))
Image2MouseLeave (call this one from FormCreate)
Image2.Canvas.CopyRect(Rect(0, 0, 75, 25), Image1.Canvas, Rect(0, 0, 75, 25))
Image2MouseUp if PtInRect(Image2.BoundsRect, ScreenToClient(Mouse.CursorPos)) then
Image2MouseEnter(nil)
else
Image2MouseLeave(nil)
oh, and use constants for those rectangles.