画像のサイズを変更して出力を保存する

Question

ここで画像のサイズを変更する方法については、多くの質問/回答があります。

しかし、私のケースに合った正しいものは見つかりません。

In this postは、大きなイメージから小さなイメージを作成したい場合にのみ機能します。

ただし、24x24サイズの画像があり、それを256x256サイズにリサイズする場合は、procedureが失敗し、歪んだ画像が表示されます。

は、以下のコードは私の問題を整理する私の試みである

Graph := TBitmap.Create; 
    try // After loading a .bmp file to Image1 with 48x48 dimension 
    Graph.Assign(Image1.Picture.Bitmap); 
    Graph.Canvas.StretchDraw(Rect(0, 0, 255, 255), Graph); 
    Graph.SetSize(255,255); 
    Graph.SaveToFile('Location\Resault.bmp'); 
    finally 
    Graph.Free; 
    end; 

原画像：

結果（左上の黒部分と白四角） ：

TImageにイメージをロードし、イメージを変換/サイズ変更して変更を保存するにはどうすればよいですか？

Answer 1

コメントのためkobikありがとうございました。

var Graph : TBitmap; Conv : TBitmap; 
begin 

     Graph := TBitmap.Create; 
     try 
     Graph.Assign(Image1.Picture.Bitmap); 
     Conv := TBitmap.Create; 
     try 
      Conv.SetSize(255,255); 
      Conv.Canvas.StretchDraw(Rect(0, 0, 255, 255), Graph); 
      Conv.SaveToFile('Location\Resault.bmp'); 
     finally 
      Conv.Free; 
     end; 

     finally 
     Graph.Free; 
     end; 

end;