Bitmap Strecken Problem mit dieser Funktion

[thomas2009]

Hallo

ich suche eine andere Idee um ein Bitmap zu strecken
Mit dieser Funktion funktioniert gut aber das Problem, wenn ich wieder die originale Größe eingibe, dann bekomme ich die ursprüngliche Qaulität nicht ! sehr chlecht

also besser die Image strecken statt Bitmap

Delphi-Quellcode:

function TForm1.ResizeBmp(bitmp: TBitmap; wid, hei: Integer): Boolean;
var
  TmpBmp: TBitmap;
  ARect: TRect;
begin
  Result := False;
  try
    TmpBmp := TBitmap.Create;
    try
      TmpBmp.Width  := wid;
      TmpBmp.Height := hei;
      ARect := Rect(0,0, wid, hei);
      TmpBmp.Canvas.StretchDraw(ARect, Bitmp);
      bitmp.Assign(TmpBmp);
    finally
      TmpBmp.Free;
    end;
    Result := True;
  except
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ResizeBmp(Image1.Picture.Bitmap ,StrToInt(Edit1.Text) , StrToInt(Edit2.Text));
end;