Consulta SQL en Procedimiento individual

[martini002]

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;