markering af ord . blå

Hej

Jeg har en memo. Når jeg dobbeltklikker på et ord i denne, slås ordet, jeg klikkede på, op, hvilket betyder, at der kommer til at stå noget andet i memoen. Problemet ligger i, at noget af den nye tekst er markeret med blåt. Jeg har prøvet lidt forskelligt med SelText, men det kan ikke bruges. Nogen forslag?

Når jeg dobbeltklikker udføres denne procedure:

procedure TForm1.FindDialog3Find(Sender: TObject);
var
i,w, PosReturn: Integer;
ordbog: string;
begin
EditSoeg.Clear;
EditSoeg.Text:=MemoBetydning.SelText;
i:=MemoBetydning.SelLength;
repeat
begin
case MemoBetydning.SelText[i] of
'.',' ',';',']',')':
begin
EditSoeg.Clear;
EditSoeg.Text:=(Copy(MemoBetydning.seltext,0,i-1))+',';
end;
end;
end;
i:=i-1;
until i=0;
MemoHent.clear;
MemoHent.Lines.LoadFromFile(sti+'data\navne.txt');
ordbog:=MemoHent.Lines[ordbognummer-1];
for w:=0 to Listbox.Count-1 do
  begin
    PosReturn := Pos('  '+EditSoeg.Text,Listbox.Items[w]);
    if PosReturn <> 0 then
    begin           
MemoHent.Clear;
MmemoHent.Lines.LoadFromFile(sti+'data\opslagsbog'+IntToStr(ordbognummer)+'.txt');
      Listbox.ItemIndex:=w;
      listenummeret:=w;
      MemoBetydning.Clear;
    MemoBetydning.Lines.Add(MemoOrdbog.Lines[ListBox.ItemIndex]);
      ListboxClick(self);
LabelBundlinje.Caption:=ordbog+':'+MemoHent.lines[ListBox.ItemIndex];
      break;
    end;
  end;
EditSoeg.Text:='';
end;