memo(oder ähnliches) als html umwandeln

[dragi]

Ich habe jetzt folgendes:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i,j: integer;
begin
  Memo2.Lines.clear;
  for i := 0 to Memo1.Lines.Count-1 do
    begin
     Memo2.Lines.Add(Memo1.Lines[i] + '
');
     If Memo1.Lines[i] = '' then
       j := i;
       Memo2.Lines[i] := Memo1.Lines[i] + '

</p>'
    end;
end;

er soll damit folgendes Machen. Wenn ich in Memo1 folgendes eingebe:
____________
aaa
bbb

ccc
____________
soll er daraus
____________
aaa

bbb



</p>
ccc

____________
machen. Er macht aber:
____________
aaa

</p>
bbb

</p>


</p>
ccc

</p>
____________

das verstehe ich nicht?!

dragi