图像处理有关问题

图像处理问题
这个正确 
GetMem(temppb, SEWd * SEHg);
  for j:=0 to SEHg-1 do
  begin
  FileRead(YZFilehandle, temppb^, SEWd);
  pb := abmp.ScanLine[j];
  CopyMemory(pb, temppb, SEWd);
  end;


这个错误，请问怎么可以改成效果一样 

GetMem(temppb, SEWd * SEHg);
  ZeroMemory(temppb, SEWd * SEHg);
  FileRead(YZFilehandle, temppb^, SEWd * SEHg);
  pb := abmp.ScanLine[aBmp.Height - 1];
  CopyMemory(pb, temppb, SEWd * SEHg);

[解决办法]
你这两个代码完全不一样，效果当然不一样了，哪个对，用哪个吗
[解决办法]
GetMem(temppb, SEWd * SEHg);
ZeroMemory(temppb, SEWd * SEHg);
FileRead(YZFilehandle, temppb^, SEWd * SEHg);
pb := abmp.ScanLine[aBmp.Height - 1];
CopyMemory(pb, temppb, SEWd * SEHg);

temppb与pb 内存大小不一至，拷贝当然出错