определить предпоследнее отрицательное число

[Фима]

В последовательности целых чисел , введённых с клавиатуры в поле Memo,
определить предпоследнее отрицательное число.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var i,n,k:integer;
begin
   n:=0;
   For i:=Memo1.Lines.Count-1 downto 0 do
   begin
      k:=StrToInt(Memo1.Lines[i]);
      If k<0 then
         n:=n+1;
      If n=2 then
      begin
         Label1.Caption:=IntToStr(k);
         Exit;
      end;
   end;
end;

Сойдет?