Something like this:
[pascal]
var bufferointer;
size:word;

begin
size:=imagesize(x1,y1,x2,y2);
getmem(buffer,size);
blockread(f,buffer^,size);
putimage(x,y,buffer^);
freemem(buffer,size);
[/pascal]