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

[pam3ec]

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

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

По этому посту закрытие окна идёт через пару секунд автоматически. Но мне надо что бы закрытие происходило после нажатие правой кнопкой на мышке.
Предполагал что можно сделать на подобии MouseClick.Riсht, но 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] - не подходит.

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