EControl Syntax Editor SDK
Example
procedure Form1AfterComplete(Sender: TObject; const Item: string);
begin
 if Value = '<HTML></HTML>' then
   SyntaxMemo1.CaretStrPos := SyntaxMemo1.CaretStrPos - 6;
end;
Copyright (c) 2004-2011. All rights reserved.