Gem funktion virker ikke ordentligt

Hej.

I min editor skal folk kunne gemme deres dokumenter, og det kan de i og for sig også godt.

Der er bare det problem, at når man fx. gemmer et html dokument, så tilføjer den nogle helt sindssyge ting til dokumentet.

Hvis jeg skriver

<b>html</b>

Gemmer den som

{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1030{\\fonttbl{\\f0\\fnil\\fcharset0 Courier New;}{\\f1\\fnil Courier New;}}
{\\colortbl ;\\red0\\green0\\blue0;\\red0\\green128\\blue128;}
\\viewkind4\\uc1\\pard\\cf1\\f0\\fs20 <\\cf2 b\\cf1 >html<\\cf2 /b\\cf1 >\\cf0\\f1
\\par }

Og det er ikke meningen...
Jeg har sådan noget syntax highlight i den, men jeg går ikke ud fra det er pga. det.

Sådan ser den ud:

  object gemdialog: TSaveDialog
    DefaultExt = '.txt'
    Filter = 
      'Tekstdokumenter (*.txt)|*.txt|HTML dokumenter (*.html)|*.html|Al' +
      'le filer (*.*)|*.*'
    Left = 100
    Top = 100
  end

Og inde i form filen:

procedure TForm1.gemdokument(Sender: TObject); // Så man kan gemme dokumentet
begin
        if gemdialog.Execute then
        begin
                editor.Lines.SaveToFile(gemdialog.FileName);
        end;
end;