Código Delphi [-] path:= ExtractFilePath(Application.ExeName)+'lib\';
path:= ExtractFilePath(Application.ExeName)+'lib\';