Resim Boyutunu Küçültme

[narkotik]

procedure TFrameNote.PhotoLibrarySelectDidFinishTaking(Image: TBitmap);
Var
 imageStream  :  TMemoryStream;
 imageSurf    :  TBitmapSurface;
 resizeParams :  TBitmapCodecSaveParams;
begin
 imageStream  := TMemoryStream.Create;
 imageSurf    := TBitmapSurface.Create;
 try
   imageSurf.Assign(Image);
   resizeParams.Quality := 25;
   TBitmapCodecManager.SaveToStream(imageStream, imageSurf, '.jpg',@resizeParams);
   imageStream.Position := 0;
   ImgResim.Bitmap.LoadFromStream(imageStream);
 finally
   imageStream.Free;
   imageSurf.Free;
 end;
end;

ile işlemler tamamlanmıştır. Konuda yardımcı olan arkadaşlara teşekkürler...