TFIleStream und Pointer

[Muetze1]

Delphi-Quellcode:

// hier ist das Problem
procedure TMainForm.ICQFTFileData(Sender: TObject; UIN: Cardinal; Data: Pointer; DataLen: Cardinal; LastPacket: Boolean);
begin
  If ( Assigned(RecvStream) ) Then
  Begin
    RecvStream.Write(Data^, DataLen);
    
    If ( LastPacket ) Then
      FreeAndNil(RecvStream);
  End;
end;