procedure TForm2.sbRemoveClick(Sender: TObject);
Var
  eINI      : TIniFile;
  Count     : Integer;
  i         : Integer;
begin
  If MessageBox(0, 'Are you sure you whant to remove this Search Engine?', 'Remove Search Engine', MB_YESNO) = IDYES Then
  Begin
    eINI := TInifile.Create('./SearchEngines.ini');
    For i := 1 to Count do
    Begin
      If eINI.ReadString(IntToStr(i), 'SearchEngine', '') = lvSearchEngines.Selected.Caption Then
        eINI.WriteInteger(IntToStr(i), 'Active', 0);
    End;
  End;
end;