为什么我的这段文件读写代码老是报告内存错误？谢谢！

Question

为什么我的这段文件读写代码老是报告内存错误？谢谢！
function  TForm2.ReadFile1(StrFilePath: PChar): PChar;
var
        iFileHandle: Integer;
        iFileLength: Integer;
        iBytesRead: Integer;
        Buffer: PChar;
        i: Integer  ;
        pp:Pchar;
        temp : String;
begin
        Result := nil;
        try
        iFileHandle := FileOpen(StrFilePath, fmOpenRead);//fmOpenReadWrite);
        if (iFileHandle < 0) then
        begin
                 Result := nil;
                 exit;
        end ;
        iFileLength := FileSeek(iFileHandle,0,2);
        FileSeek(iFileHandle,0,0);
        Buffer := PChar(AllocMem(iFileLength + 1));
        iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
        FileClose(iFileHandle);
        //ShowMessage(Buffer);
        Buffer[iFileLength+1]:=#0;
        Result:=Buffer;
        finally
                FreeMem(Buffer);
        end;end;

Answer 1

你肯定是参照delphi的help做的,有一大问题
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
应该为
iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);

Answer 2

Result:=Buffer;
        finally
                FreeMem(Buffer);你都释放掉内存了，还如何返回？

Answer 3

是啊，我就是按照delphi的帮助作的阿。