var i,j : integer;
....

For I := 0 To FrList.Count -1 do
begin
  For j := 0 To OnLineFriend.Count -1 Do
  begin
     If FrList[i] = OnLineFriend[j] Then FrList.Delete(i);
  end;
end;