Código Delphi [-]// var x :integer StatusBar1.Panels[1].Text:='Lectura de archivo '+intTostr(x)+' %'; StatusBar1.Refresh;
// var x :integer StatusBar1.Panels[1].Text:='Lectura de archivo '+intTostr(x)+' %'; StatusBar1.Refresh;