Disculpa, creo que fue un error de HTML,
mi firefox esta funcionando hoy como internet explorer.
ya lo vi bien, lo implementare ahora mismo,
Gracias, un abrazo.
Edito:
Funciono Perfectamente,
llamando al procedimiento de BuscarFactura asi:
Código Delphi
[-]
procedure TForm4.ECodigoKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
BuscarFactura(nil);
end;