[AllMaNi]

Прошу помощи у знающих людей.
Умаялся с этой задачей...
Итак суть.Необходимо сделать следующее:
При нажатии кнопки - выскакивает попап меню со строками количество и название которых берется из тхт файла. Меню появляется соотвественно у указателя мыши.

Вот что у меня получилось...

Код:

var
  Form1: TForm1;
  mousP2: TPoint;
  f:TextFile;
  s:string;
  i: integer;

procedure TForm1.Button1Click(Sender: TObject);
 begin
   AssignFile(F, 'items.txt');
    Reset(f);
     While not eof(f) do
     begin
      ReadLn(f, s);
       with PopUpMenu1.Items do
        begin
         i:=i+1;
         Add(NewItem(s,0,False,True,nil,0,'MenuItem'+ inttostr(i)));
         GetCursorPos(mousP2);
         PopupMenu1.Popup(mousP2.X, mousP2.Y);
        end;
     end;
 end;

procedure TForm1.FormCreate(Sender: TObject);
 begin
  i:=0;
 end;
end.

Где-то ошибка.
В итоге в попап меню одна строчка - последняя. В то время как в файле - три.