Guardad Canvas De Un Image Con La propiedad stretch:=true

[gulder]

Hola Foro Como andan espero que bien, bueno estoy tratando de guardar el canvas de un Timage que tiene la propiedad stretch:=true en una imagen lo hago de la siguiente forma:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
        Bitmap := TBitmap.Create;
        Bitmap.Width := Image1.Width;
        Bitmap.Height := Image1.Height;
        Bitmap.Canvas.Draw(0,0,Image1.Picture.Graphic);
        Bitmap.SaveToFile('logula.bmp');
end;

Nota: este es el tamaño original de la imagen antes de ser cargado en el Timage


en mi form tengo la imagen y el boton ojo el tamaño de la imagen no es el original recuerden que la imagen tiene la propiedad stretch:=true y por ende la estira al tamaño del Timage



y al ejecutar dicho codigo me lo guarda de la siguiente forma



yo quiero que me lo guarde tal cual se ve en el Timage saludos y espero que me entiendan lo que quiero