Código Delphi [-]Locate('Company;Contact', VarArrayOf(['Sight Diver', 'P']), []);
Locate('Company;Contact', VarArrayOf(['Sight Diver', 'P']), []);