용량 줄이시려면 압축률을 조정하시면 되구요...
보간법으로 줄이실때는 가장 크기가 비슷한(보다 큰) 썸네일을 이용해서 줄이시면 안깨질겁니다. jpeg의 썸네일 읽기 항목을 참조하세요.

답변 감사 합니다.
밑에 소스가 델마당에서 가져온 소스거든요
제가 이미지 처음 다뤄봐서 그러거든요
님이 하신말 어떤 부분인지 이해가 안가내요
그리고 압축율은또 어디 있는지
귀찬으시더라도 답변주심 두고두고 감사 하겠습니다 -0-
procedure TMain.DrawMap; // 이미지를 그려주는 함수입니다.
var
   csx, csy: Integer; // 원본 이미지 중심좌표
   cdx, cdy: Integer; // 결과 이미지 중심좌표
   x, y: Integer;  // 결과 이미지의 픽셀좌표
   sx, sy: Single; // 원본 이미지의 픽셀좌표 (실수)
   sx2, sy2: Single; // 회전변환에서 쓸 임시값
   isx, isy: Integer; // 원본 이미지의 픽셀좌표 (정수)
   _x, _y: Single; // sx, sy 의 정수부분을 떼어낸 값...
   xx, yy: Integer; // 실제 계산을 위한 변수들...
   ScaleInvValue: Single; // 확대비율 값의 역수
   RotSinVal, RotCosVal: Single; // 회전각에 대한 삼각비값
   SrcP, DstP: PDWORD; // 픽셀의 포인터
   BoganVal: array[0..1, 0..1]of Single; // 주변 네 점에 관한 보간비율
   BoganR, BoganG, BoganB: Single; // 선형보간에 의해 만들어질 RGB 색상값 (실수)
   iBoganR, iBoganG, iBoganB: Byte; // 선형보간에 의해 만들어질 RGB 색상값 (정수)
   i, j, iMax, iMin, jMax, jMin: Integer; // 기타...
begin
   // 결과이미지를 검은색으로 채우고...
   ClearImage2;

   // 확대비율의 역수를 구하고...
   ScaleInvValue:=1/ScaleValue;
   // 삼각비 값을 미리 구해놓고...
   RotSinVal:=Sin(RotateValue);
   RotCosVal:=Cos(RotateValue);

   // 원본과 결과 이미지의 중심위치를 구하고...
   csx:=W1 div 2; csy:=H1 div 2;
   cdx:=W2 div 2; cdy:=H2 div 2;

   for x:=0 to W2-1 do for y:=0 to H2-1 do
   begin
     // 중심위치가 0 이 되도록 하고...
     xx:=x-cdX;
     yy:=y-cdY;

     // 확대...
     sx:=xx*ScaleInvValue;
     sy:=yy*ScaleInvValue;

     // 회전...
     sx2:=sx;
     sy2:=sy;
     sx:=sx2*RotCosVal-sy2*RotSinVal;
     sy:=sx2*RotSinVal+sy2*RotCosVal;

     // 원본 픽셀의 좌표(실수)를 반올림하여 가장 근접한 점을 찾는다.
     isx:=Round(sx);
     isy:=Round(sy);

     // 중심점으로 옮기고...
     Inc(isx, csx);
     Inc(isy, csy);

     // 원본 이미지 밖으로 나간 점이 아니면 값을 복사한다.
     if (isx>=0)and(isx<W1)and(isy>=0)and(isy<H1) then
     begin
       SrcP:=Pointer(DWORD(P1)+isy*LineSize1+isx*BPP);
       DstP:=Pointer(DWORD(P2)+  y*LineSize2+  x*BPP);
       DstP^:=SrcP^;
     end;
   end;

   Image2.Repaint;
end;