RichEdit.txt als Stream speichern

[moperswings]

Hallo,

folgender Code funktioniert so weit um einen Text zu speichern - nur:
Ist er auch damit richtig?
Vielleicht kann ein Profi mal einen Blick drauf werfen?
Danke und Grüsse, moperswings

Delphi-Quellcode:

var
        Stream: TFileStream;

procedure TForm1.open1Click(Sender: TObject);
begin
        try
        If OpenDialog1.Execute then begin
        Stream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
        RichEdit1.Lines.LoadFromStream(Stream);
        Stream.Free;
        Stream := nil;
        end;
        except
        Form1.Close;
        end;
end;

procedure TForm1.save1Click(Sender: TObject);
begin
        try
        if SaveDialog1.Execute then begin
        Stream := TFileStream.Create(SaveDialog1.FileName, fmCreate);
        RichEdit1.Lines.SaveToStream(Stream);
        Stream.Free;
        Stream := nil;
        end;
        except
        Form1.Close;
        end;
end;