procedure TForm1.Button3Click(Sender: TObject);

var ini: TIniFile;
var i: integer;
var i1: integer;
var readoldstring: string;
begin
  If ( ListBox1.ItemIndex > -1 ) Then
  begin
listbox1.Visible:= false;
       ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
   'favoritecharacters.ini');
       ini.ReadSections(Listbox1.Items);
       ListBox1.ItemIndex := delstring;
             Form1.Edit3.Text := ListBox1.Items[ ListBox1.ItemIndex ];
ini.EraseSection(Form1.Edit3.Text);
i1 := ListBox1.Count;
ini.Free;
       ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
 'favoritecharacters.ini');
 ini.ReadSections(Listbox1.Items);
i1 := ListBox1.Count;
  Listbox1.Clear;
  For i := 1 to i1 do
 begin
Listbox1.Items.Add(ini.ReadString('Characters'+ inttostr(i),'Name', ''));
   end;
ini.free;
listbox1.Visible:= true;
end;
end;