/// OBTIENE EL LISTADO DE MIS IMPRESORAS DEFINIDAS
AnsiString s = Application->ExeName;
AnsiString ExePath = ExtractFilePath(s);
s=ExePath+"impresoras.ini";
Label3->Caption=s;
TIniFile* pif2 = new TIniFile(s);
Form3->Edit1->Text=pif2->ReadString("IMPRESORAS","ALBARANES",",,");
delete pif, pif2;