Du nimmst dir einen Filestream und dereferenzierst Data:
Delphi-Quellcode:
fs := TFileStream.Create(DateiName, fmCreate); // Sollte global ausgeführt werden
procedure OnReceive({...});
begin
fs.Write(Data^, DataLen);
if LastPacket then
fs.Destroy;
end;
BtW: Ist nur eine Idee, musst es wohl noch ausbauen.