procedure TfrmEmpleados.JvBtnObtener_ActaClick(Sender: TObject);
var
SourceIndex: Integer;
XV : WORD ;
begin
if Twain.LoadLibrary then
begin
Twain.LoadSourceManager();
SourceIndex := Twain.SelectSource();
if SourceIndex <> -1 then
BEGIN
with Twain.Source[SourceIndex] do
begin
Loaded := TRUE;
TransferMode := ttmFile;
ShowUI := False ;
Enabled := TRUE;
SetIXResolution(200) ;
end ;
END
else ShowMessage('Cancelado')
end
else MessageDlg('No Está Instalado el Controlador Twain NECESARIO', mtError, [mbOK], 0)
end;