Tag insight til Synedit

tjo... dette lader da til at virke??

procedure TForm1.SynCompletionProposal1Execute(Kind: SynCompletionType;
  Sender: TObject; var CurrentInput: String; var x, y: Integer;
  var CanExecute: Boolean);
const
  a = 'href="",title="",class="",target=""';
  body = 'color=""';
  elements = '<a></a>';
begin
  FStartSel := SynMemo1.SelStart;
  CanExecute := False;
  if (LastDelimiter2('<a',Copy(SynMemo1.Text, 0, SynMemo1.SelStart)) <> 0) and
  (LastDelimiter2('<a',Copy(SynMemo1.Text, 0, SynMemo1.SelStart)) >
  LastDelimiter2('>',Copy(SynMemo1.Text, 0, SynMemo1.SelStart))) then
  begin
    SynCompletionProposal1.ItemList.CommaText := a;
    CanExecute := True;
  end
  else if (LastDelimiter2('<body',Copy(SynMemo1.Text, 0, SynMemo1.SelStart)) <> 0) and
  (LastDelimiter2('<body',Copy(SynMemo1.Text, 0, SynMemo1.SelStart)) >
  LastDelimiter2('>',Copy(SynMemo1.Text, 0, SynMemo1.SelStart))) then
  begin
    SynCompletionProposal1.ItemList.CommaText := body;
    CanExecute := True;
  end
  else begin
    SynCompletionProposal1.ItemList.CommaText := elements;
    CanExecute := True;
  end;
end;