Cursorposition im Memo festlegen

[moperswings]

Hallo,

ich probiere es schon den ganzen Tag :-(
Wenn in einem Memo die Enter-Taste gedrückt wird, sollen die zwei Tags eingefügt werden und der Cursor soll zwischen diesen beiden Tags stehen. Der Cursor springt aber immer zwei Zeilen tiefer unter das Abschluss </p>. Hoffe Ihr könnt mir helfen, dass der Cursor nach Tastendruck um zwei Zeilen wieder nach oben springt.
Viele Grüsse, moperswings

Delphi-Quellcode:

procedure TForm1.Memo1OnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
        if key = VK_RETURN then Memo1.Lines.Add('

');
        //cursor position
        if key = VK_RETURN then Memo1.Lines.Add('</p>');
end;