[movnet]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
begin
Query1.Close;
Query1.Prepare;
a:=Edit1.Text;
Query1.Params[0].AsString := a;
Query1.Open;
end;