Como paso el valor?

[Pablo Carlos]

Código Delphi [-]
procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key = #13) then // (presionando enter)
  begin
   Query1.Close;
   Query1.Open;
 end;
end;
 
procedure TdmQuerys.QueryBeforeOpen(DataSet: TDataSet); // o el procedimiento que sea
begin
Query1.ParamByName('BuscarEsto').AsString = 
Edit8.Text; 
//luego que pasas el parametro
Edit8.Text := ' ' // Modificas el valor
end;

No entiendo mucho lo que necesitas, espero que esto te ayude.
Saludos