Zapisywanie i odczytywanie pliku przy pomocy strumienia (TFileStream) - lazarus delphi

Zapisywanie

Zmienne

strum: TFileStream;
tmp:string; 

Kod

tmp:='mój strumień';
strum := TFileStream.Create('plik.bin', fmCreate);
strum.WriteBuffer(Pointer(tmp)^,Length(tmp));
strum.Free;         

Odczytywanie

Zmienne

strum: TFileStream;
tmp:string; 
BytesRead:integer;

Kod

strum := TFileStream.Create('plik.bin', fmOpenRead);
SetLength(tmp, strum.size);
BytesRead := strum.Read(tmp[1], strum.size);
SetLength(tmp, BytesRead);
strum.Free;           

showmessage(tmp);  //wyświetlanie zawartości strumienia w formie stringa