[Delphi] Usuwanie znaków w pliku

var
Data: TFileStream;
begin
//Utwórz plik na dysku c o nazwie Plik.txt (wiem fmCreate)
Data := TFileStream.Create('C:\Plik.txt' , fmOpenReadWrite)
Data.Position:= NR;
Data.Write('Z', 1);
end;

Gdy wykonamy tą procedurą to zapisze ona znak "Z" do pliku. A jak usunąć ten znak?

Może, wystarczy to:

Data.Write('', 1);