как закрыть правой клавишей мыши

[pam3ec]

Пишу программы парсинга RSS для диплома.
Для вывода новостей использую всплывающее окно по этому посту http://www.programmersforum.ru/showthread.php?t=65920.

Но код изменил под себя, За место создание TLebel-а создаюTMemo.

По этому посту закрытие окна идёт через пару секунд автоматически. Но мне надо что бы закрытие происходило после нажатие правой кнопкой на мишке.
Предполагал что можно сделать на подобии MouseClick.Riht, но Delphi рагается "Типа нельзя так делать".
Пожалуйста помогите студенту. Какую команду можно использовать как и куда воткнуть.
Свой код прилагаю:

procedure TForm1.fShowHint(Text:String);
var NeededTop:integer;
    HintForm:TForm;
    HintMemo:TMemo;

begin
  HintForm:=TForm.Create(nil);

  with HintForm do
  begin
    Width:=700;
    Height:=300;
    Color:=clSkyBlue;
    BorderStyle:=bsNone;
    //Создаём текст
    HintMemo:=TMemo.Create(nil); //создание TMemo где будет вписываться текст
    
with HintMemo do    begin
        Parent:=HintForm;
        WordWrap:=true;
        Lines.Text:='123456767890'; //текст сообщения
        Align:=alClient;
        Alignment:=taCenter;
    end;

    AlphaBlend:=true;
    AlphaBlendValue:=220;
    HintForm.Show;
    HintForm.BringToFront;
    Left := Screen.WorkAreaWidth - Width;
    Top  := Screen.WorkAreaHeight;
    NeededTop := Screen.WorkAreaHeight - Height;
    
while Top>NeededTop do //всплытие окна
    begin
      Top := Top - 2;
      Repaint;
      Sleep(10);
      Application.ProcessMessages;
    end;

    Sleep(2000); //двух секундная остановка
    NeededTop := Screen.WorkAreaHeight;

    while Top<NeededTop do //закрытие окна
    begin
      Top := Top + 2;
      Repaint;
      Sleep(10);
      Application.ProcessMessages;
    end;

    HintMemo.Free;
    Free;
  end;
end;
end.

И ещё один вопрос. Как в это созданное Memo. прописать текст для разных строчек. А то Lines[1], Lines[2], Lines[3] - не подходит.

Пожалуйста помогите.

[Hacker19_90]

А если обработать OnMouseDown??

[pam3ec]

думал об этом. Но не получается. так как но форме не создан TMemo(HintMemo). Поэтому Delphi не понимет к чему прикреплять обработчик OnMouseDown.
И ещё всплыти и заход всплывающего окна происходит в процедуре. Следовательно надо этот обработчик

Если я думаю не правильно, то буду рад услышать разъяснения.