Изображение с размерами Image

[snakes]

Добрый вечер .
Есть такой код:

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ID3v2Library, Vcl.ExtCtrls, jpeg, pngimage;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
Var tag : TID3v2Tag;
    mem : TMemoryStream;
    mime : AnsiString;
    desc : String;
    ct, index : Integer;
    formats : array[0..1] of TGraphic; //0 - JPEG, 1 - PNG
begin
    tag := TID3v2Tag.Create;
    mem := TMemoryStream.Create;
    formats[0] := TJPEGImage.Create;
    formats[1] := TPNGImage.Create;
    try
      if tag.LoadFromFile('D:\123.mp3') <> ID3V2LIBRARY_SUCCESS then
        ShowMessage('Ошибка открытия');
        //отностиельно того какой резулдьтат вернула обрабатываешь ошибку
      if tag.GetUnicodeCoverPictureStream('APIC', TStream(mem), mime, desc, ct) then
      Begin
          index := 0;
          try
            formats[0].LoadFromStream(mem);
          except
            mem.Position := 0;
            try
              formats[1].LoadFromStream(mem);
              index := 1;
            except
              ShowMessage('Нет подходящего формата');
              Exit;
            end;
          end;
          Image1.Canvas.Draw(0, 0, formats[index]);
      End else
        ShowMessage('Нет графики в файле');
    finally
      tag.Free;
      mem.Free;
      formats[0].Free;
      formats[1].Free;
    end;
end;
 
end.

Все работает ,но картинка рисуется не по размерам Image ,а гораздо больше .
Image.Strench -не помогает .
Как можно это исправить ?
Картинка нужна 150х150
Спасибо)