Das ganze noch ein bisschen "optimiert":
Delphi-Quellcode:
if DelphiTwain1.LoadLibrary then
begin
DelphiTwain1.LoadSourceManager();
SourceIndex := 1;
DelphiTwain1.Source[SourceIndex].Loaded := True ;
DelphiTwain1.Source[SourceIndex].ShowUI := False;
DelphiTwain1.Source[SourceIndex].TransferMode := ttmFile;
DelphiTwain1.Source[SourceIndex].Enabled := True;
end
else
ShowMessage('Twain nicht installiert')
Die zweite If-Abfrage ist ja sinnlos, die kann ja nie <> -1 sein, da Du SourceIndex direkt davor auf 1 setzt.