cuando finaliza un evento

[ecfisa]

Hola jonmendi.

Otra alternativa es enviar un mensaje al finalizar la lectura de la cadena. Sólo a modo de ejemplo, supongamos que la cadena es enviada por el scanner hacia un TEdit y utilizamos el evento OnChange del mismo:

Código Delphi [-]
...
const
  WM_AFTER_EVENTO = WM_USER + 300;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  private
    procedure WMAfterEvento(var Msg: TMessage); message WM_AFTER_EVENTO;
  public
  end;
....

implementation

procedure TForm1.WMAfterEvento(var Msg: TMessage);
begin
  // procesar resultado
  ShowMessage('Cadena leida. Procesando resultado...');
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Sleep(500);  // simular proceso de captura
  PostMessage(Handle, WM_AFTER_EVENTO, 0, 0);
end;
...

Un saludo.