procedure Form1AfterComplete(Sender: TObject; const Item: string); begin if Value = '<HTML></HTML>' then SyntaxMemo1.CaretStrPos := SyntaxMemo1.CaretStrPos - 6; end;