obraz w TImage z obramowaniem

Jak zrobić obramowanie obrazka zamieszczonego w TImage (autosize:=False, proportional:True) ? powiedzmy takie 1 px..
nie chodzi mi o obramowanie TImage ale obrazka w nim zawartego

pozdrawiam

narysować :>

Moze tak:

with image1.Picture.Bitmap do 
begin
  Canvas.Brush.Style := bsClear;
  Canvas.Rectangle(0,0,Width,Height);
end;