如何将JPG文件拆成相同象素大小的4部分,并知道4块图片的大小?(100分)

请问下,如何将JPG文件拆成相同象素大小的4部分,并知道4块图片的大小?
谢谢!

procedure TFrmMAIN.Button2Click(Sender: TObject);
var sm:TMemorystream;
byt:array of of byte;
icount,temp:integer;
begin
sm := TMemorystream.Create;
sm.LoadFromFile('./aaaa.jpg');
iCount := sm.size;
//下面这一段稍改一下分四次保存就行了
temp:=iCount/4;
setlength(byt,temp);
sm.Read(byt[0],temp);
sm.SaveToFile('./aaaa1);

end;

TO:qcchan 我还想问问,我如何才能知道这4部分图片的大小,请一块回答下好吗?

TO:qcchan 你好,你这是按图片文件大小分的4块,我需要的是按象素大小分的4块.
按象素分的话,4个文件大小可能会不一样的.谢谢

接受答案了.