Skanowanie dokumentów w delphi

Witam,

od razu na starcie powiem, że korzystam z Twain i na delphi 2007 działa.
Kompilując kod na XE3 pojawia się wybór źródła, ale nie mam dostępnego żadnego źródła.

function TForm2.Skanuj(const UI, DefScaner: Boolean; const p_nazwa_pliku :string): boolean;
var
  zeskanowano: boolean;
  s: string;
  Plik:TextFile;
begin
  {If user is already using Status menu}
  if Twain.LibraryLoaded then
    //ItemStatus5Click(ItemStatus5)
    result:=false
  else
  begin
    try
    FUI := UI;
    FDefScaner := DefScaner;
    FNazwaPliku := p_nazwa_pliku;
    {Load library, source manager and source}
    if not DefScaner then
      SelectSource;
    Twain.LoadLibrary;
    Twain.LoadSourceManager;
    Twain.Source[CurrentSource].Loaded := TRUE;
    {Enable source}
    ////Twain.Source[CurrentSource].TransferMode := Self.TransferMode;
    //ClearImageList; {Clear list of images}
    Twain.Source[CurrentSource].EnableSource(UI, FALSE);
    while Twain.Source[CurrentSource].Enabled do Application.ProcessMessages;
    {Unload library}
    Twain.UnloadLibrary;
    //jpg := ResultImage;
    
    finally

    end;
    result:=true;
  end {if Twain.SourceLoaded}
end;

procedure TForm2.selectSource;
var
  NewSource: Integer;
begin
  {If user is using Status menu to execute process}
  if Twain.SourceManagerLoaded then
  begin
    NewSource := Twain.SelectSource;
    {In case some source was choosen}
    if NewSource <> -1 then
    begin
      CurrentSource := NewSource;
      //ListSources.ItemIndex := CurrentSource;
    end {if NewSource <> -1}
  end
  else
  begin
    {Manually loading source}
    if Twain.LoadLibrary then
    begin
      {Load twain, show interface to select source and unload}
      Twain.LoadSourceManager;
      NewSource := Twain.SelectSource;
      if NewSource <> -1 then CurrentSource := NewSource;
      Twain.UnloadLibrary;
    end
    else
      ShowMessage('Library could not be loaded, check if source is loaded')
  end {if Twain.SourceManagerLoaded}
end;

Kombinowałem na różne sposoby, teoretycznie na swojej stronie autor Twain opisuje, że działa pod XE2, 3 i 4
jednak w praktyce tak się nie dzieje. Ściągałem demo ze strony autora i ono działa, ale po przekompilowaniu na XE już nie działa.

Znacie może przyczynę, lub inny komponent nawet płatny ale do Delphi XE?