[Casimiro Notevi]

En uno de los ejemplos viene lo siguiente:

procedure TForm1.TwainTwainAcquire(Sender: TObject; const Index: Integer; 
  Image: TBitmap; var Cancel: Boolean); 
begin 
  ImageHolder.Picture.Assign(Image); 
  Cancel := TRUE;  {Only want one image} 
end;

Y en el otro ejemplo, lo siguiente:

procedure TFormMain.TwainSourceFileTransfer(Sender: TObject;

  const Index: Integer; Filename: TW_STR255; Format: TTwainFormat;

  var Cancel: Boolean);

var

  LoadFileName: String;

begin

  {Set file}

  LoadFileName := includetrailingbackslash(getcurrentdir) + 'picture.bmp';

  {Load and add to list}

  ImageList.Add(TBitmap.Create);

  TBitmap(ImageList[ImageList.Count - 1]).LoadFromFile(LoadFilename);

  DeleteFile(LoadFileName);

  {In case it's the first image, display}

  if ImageList.Count = 1 then SelectFirst;

  GoForward.Enabled := ImageList.Count - 1 > CurrentImage;

end;

Prueba con esos eventos, parece que es lo que necesitas.