[moo2k]

Создай несколько потоков типа TStream и переменную типа Byte. И затем, чтобы прочитать используй TFileStream.Create(OpenDialog1.FileName,fmOpenRead ), а для записи TFileStream.Create(SaveDialog1.FileName,fmCreate).