[SynEdit] Zamiana wszystkich znaczników na małe i odwrotni

Jak mogę w syn edit zrobic aby wszystkie znaczniki html (np.
</del>) zamieniło na duże lub małe czyli z <BR> na

Pozdrawiam.

Mozesz uzyc tego, nie jest to rewelacyjne ale dziala. Wywolujesz po kolei Zamien('
' , '<BR>'); itd.

procedure TForm1.Zamien(zam , nowy : String) ;
var
  i , j : Integer ;
  S : String ;
begin
  for i := 0 to SynEdit1.Lines.Count - 1 do
  begin
    S := SynEdit1.Lines.Strings[i] ;
    if Pos(zam , S) > 0 then
    begin
      for j := 1 to Length(S) do
        if S[j] = zam then
        begin
          Delete(S , j , Length(zam)) ;
          Insert(nowy, S , j) ;
        end ;
    SynEdit1.Lines.Delete(i) ;
    SynEdit1.Lines.Insert(i , S) ;
    end;
  end;
end;

function HTMLBigTag(s: string): string; // duże znaczniki
var
  i: Integer;
  HTMLTag: Boolean;
begin
  HTMLTag := False;
  for i := 1 to length(s) do
  begin
    if s[i] = '<' then
      HTMLTag := True;
    if (s[i] = '>') or (s[i] = ' ') then
      HTMLTag := False;
    if HTMLTag then
      s[i] := string(AnsiUpperCase(s[i]))[1];
  end;
  Result := s;
end;

function HTMLSmallTag(s: string): string; // małe znaczniki
var
  i: Integer;
  HTMLTag: Boolean;
begin
  HTMLTag := False;
  for i := 1 to length(s) do
  begin
    if s[i] = '<' then
      HTMLTag := True;
    if (s[i] = '>') or (s[i] = ' ') then
      HTMLTag := False;
    if HTMLTag then
      s[i] := string(AnsiLowerCase(s[i]))[1];
  end;
  Result := s;
end;