TFIleStream und Pointer

[SirThornberry]

Delphi-Quellcode:

procedure TMainForm.ICQFTFileData(Sender: TObject; UIN: Cardinal; Data: Pointer; DataLen: Cardinal; LastPacket: Boolean);
var LStream: TFileStream;
begin
  LStream := TFileStream.Create('e:\text.txt', fmCreate);
  LStream.Write(Data^, DataLen);
  LStream.Free;