Load data from file to memory procedure LoadFromFileToMem(const filename:string; memStream:TMemoryStream); var afileStream:TFileStream; begin afileStream:=TFileStream.Create(filename,fmOpenRead); try memStream.CopyFrom(afileStream); finally afileStream.Free; end; end; ... var memStream:TMemoryStream; ... memStream:=TMemoryStream.Create; try LoadFromFileToMem('C\my file.dat',memStream); finally memStream.Free; end; mo funciona trem feio