Oi, então precisa somente declarar uma váriavel do tipo TDelphiTwain
Scanner: TDelphiTwain;
procedure DelphiTwain1TwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean);
Scanner := TDelphiTwain.Create(Application);
Scanner.OnTwainAcquire := @DelphiTwain1TwainAcquire;
Dentro da procedure "DelphiTwain1TwainAcquire" você pega a imagem digitalizada pela variavel Image
Exemplo:
Image1.Picture.Assign(Image);
Para chamar o Scanner
Var
SourceIndex: Integer;
Source: TTwainSource;
begin
Scanner.LibraryLoaded := true;
Scanner.SourceManagerLoaded := true;
SourceIndex := Scanner.SelectSource();
if SourceIndex <> -1 then
begin
Source := Scanner.Source[SourceIndex];
Source.Loaded := true;
Source.Enabled := true;
end;
end;
Não esqueça de declarar na sessão uses DelphiTwain