procedure TForm6.FlatListBox1ChangeIndex(Sender: TObject);
begin try
FlatButton3.Enabled :=(FlatListBox1.ItemIndex>-1);
FlatButton2.Enabled := FlatButton3.Enabled;
if FlatListBox1.ItemIndex >-1 then begin
        if exp1.Busy then exp1.Stop;
        exp1.Navigate(address_buffer.Strings[FlatListBox1.ItemIndex]);
end;
except end;End;