delphi - Delphi 2010 - メモ seltext でフォームを表示

Question

ユーザーが最後に入力した文字に基づいて、メモに (X、Y) の位置にフォームを表示 (または作成) するのを手伝ってくれる人はいますか? つまり、ユーザーがメモに % 文字を入力するたびにフォームを表示する必要がありますが、この文字のすぐ隣と下にフォームを配置する必要があります。私はこのコードを使用しています：

procedure TForm1.memo1KeyPress(Sender: TObject; var Key: Char);
if key = #37 then
begin
  form2.Top:=Mouse.CursorPos.Y;
form2.left:=Mouse.CursorPos.X;
form2.Show;
end;
end;

しかし、このコードはカーソル位置に基づいたフォームしか表示しません。ユーザーが % 文字を入力した場所の右と下にフォームを表示して配置する方法はありますか?