Prueba a ver si esto te sirve, es la traducción mas o menos de
aquello:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
R: TRect;
Image: TImage;
begin
Image := TImage.Create(Self);
Image.Height := 100;
Image.Width := 100;
R.Left := 0;
R.Top := 0;
R.Bottom := Image.Height;
R.Right := Image.Width;
Image.Canvas.StretchDraw(R, Image1.Picture.Graphic);
Image.Picture.Graphic.SaveToFile('a.bmp');
end;
Saludos.