删除memo某一行

var
   I :integer ;
   str :String ;
begin
for I := 0 to MemoUrlList.lines.count -1 do
begin

   if (MemoUrlList.lines.Strings[I] ='vurl') then
   begin
      MemoUrlList.lines.delete(I) ; 
   end;
end ;