{конвертер Text в HTML}
procedure TForm1.Convert_TextToHTML(Sender: TObject);
VAR
  i,y : integer;
  line, line1, line2: string;
  italic, bolt, underline : Boolean;
begin
italic:=false;
bolt:=false;
underline:=false;
for i:=0 to RichEdit1.Lines.Count-1 do
    begin

        RichEdit1Click(Self);
        line:=RichEdit1.Lines[i];
        line1:='';
        line2:='';
        if line='' then line1:='<br>';
        for y:=1 to Length(line) do
            begin
                line2:=Copy(line,y,1);

                RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX, i, 0) + y-1;
                RichEdit1.SelLength:=1;

                        if fsUnderline in RichEdit1.SelAttributes.Style then
                            begin
                                if underline=false then
                                    begin
                                        line2:='<u>'+line2;
                                        underline:=true;
                                    end;
                            end
                        else
                            begin
                                if underline=true then
                                    begin
                                        line2:='</u>'+line2;
                                        underline:=false;
                                    end;
                            end;
                        if fsItalic in RichEdit1.SelAttributes.Style then
                            begin
                                if italic=false then
                                    begin
                                        line2:='<i>'+line2;
                                        italic:=true;
                                    end;
                            end
                        else
                          begin
                                if italic=true then
                                    begin
                                        line2:='</i>'+line2;
                                        italic:=false;
                                    end;
                          end;
                        if fsBold in RichEdit1.SelAttributes.Style then
                            begin
                                if bolt=false then
                                    begin
                                        line2:='<b>'+line2;
                                        bolt:=true;
                                    end;
                            end
                        else
                          begin
                                if bolt=true then
                                    begin
                                        line2:='</b>'+line2;
                                        bolt:=false;
                                    end;
                          end;
                if y=Length(line) then
                    begin
                                if bolt=true then
                                    begin
                                        line2:=line2+'</b>';
                                        bolt:=false;
                                    end;
                                if italic=true then
                                    begin
                                        line2:=line2+'</i>';
                                        italic:=false;
                                    end;
                                if underline=true then
                                    begin
                                        line2:=line2+'</u>';
                                        underline:=false;
                                    end;                                   
                              line2:=line2+'<br>';
                    end;

                line1:=line1+line2;
        end;
    RichEdit1.Lines.Delete(i);
    RichEdit1.Lines.Insert(i,line1);
    end;
end;