1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  iFileHAndle: Integer;
  Buffer: PChar;
begin
  Buffer := PChar(AllocMem(129));
  iFileHandle := FileOpen('D:\Musik\JCA\JCA - i begin to wonder.mp3', fmopenread);
  FileSeek(iFileHandle,-128,2);
  FileRead(iFileHandle, Buffer, 128);
  FileClose(iFileHandle);
  FreeMem(Buffer);
end;					

1:

FileSeek(iFileHandle, 128, 2);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

  var Buffer:pointer;
begin
...
Buffer:=AllocMem(128);
...
freeMem(buffer,128);
end;

//oder , der Einfachheit halber

var Buffer:array[0..127] of byte;  //oder Char wenns beliebt
      pBuffer:pointer;

...
pBuffer:=@Buffer;
FileRead(iFileHandle,pBuffer,sizeOf(buffer));
....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  iFileHAndle: Integer;
  lpBuffer: PCHAR;

  null:integer;
begin
  lpBuffer := AllocMem(129);
  iFileHandle:=CreateFile('\\.\d:\TEST.txt',GENERIC_READ,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  SetFilePointer(iFileHandle,-129,NIL,FILE_END);
  ReadFile(iFileHAndle, lpBuffer^, 129, NULL, nil);
  CloseHandle(iFileHandle);
  ShowMessage(STRING(lpBuffer)+#0);
  edit1.text:=STRING(lpBuffer)+#0;
  FreeMem(lpBuffer);
end;