(Resolvido) Redimensionar Imagem JPEG

[Rafael Pasc.]

Bom, estou tentando usar uma função para redimensionar uma imagem dentro de um componente Timage. O programa compila corretamente, mas a função não funciona e a imagem continua sem redimensionar.

*Essa é a função pra redimensionar: ( Declarei ela em private )

function ResizeBitmap(Original: Tbitmap; ToWidth, ToHeight: Integer): TBitmap;

begin

Result := TBitmap.Create;

Result.Width := ToWidth;

Result.Height := ToHeight;

Result.Canvas.StretchDraw(Rect(0, 0, ToWidth, ToHeight), Original);

end;

*Aqui é onde eu uso ela:

procedure TCadastro01.PaginasClick(Sender: TObject);

begin

if (EDORDE_ARTFOTO_JPGG.text <> '') and (contjpeg <> 1) then

try

ImagemJP.Picture.LoadFromFile(EDORDE_ARTFOTO_JPGG.text);

imagemjp.picture.bitmap := resizebitmap(imagemjp.Picture.bitmap,200,200);

contjpeg:=1;

except

end;

end;

Alguém tem alguma idéia ou solução ?

Grato.

Esqueci de dizer que o Delphi dá um aviso assim:

"Return value of function 'Tcadastro01.resizebitmap' might be undefined"

[Rafael Pasc.]

Tudo resolvido agora ^^