procedure TForm1.Button1Click(Sender: TObject); var Rect1,Rect2,Rect3:TRect; bmp:TBitmap; w,h:integer; begin bmp:= TBitmap.Create; bmp.Assign(Image1.Picture.Graphic); w:=Image1.Width ; h:=Image1.Height div 3; Rect1:=Rect(0,0,w,h); Rect2:=Rect(0,h,w,h*2); Rect3:=Rect(0,h*2,w,h*3); with Image2 do begin Height:=h; Width:=w; Canvas.CopyRect(Rect1,bmp.Canvas,Rect1); end; with Image3 do begin Height:=h; Width:=w; Canvas.CopyRect(Rect1,bmp.Canvas,Rect2); end; with Image4 do begin Height:=h; Width:=w; Canvas.CopyRect(Rect1,bmp.Canvas,Rect3); end; bmp.Free; end;