Tienes razon caro......hay que añadirle esa linea mas...
o cambiar lo siguiente:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close; Query1.SQL.Text:='select * from Cliente where Razon_Social = :Rason_social';(Aqui cambie) Query1.ParamByName('Rason_social').AsString:=Edit1.Text; Query1.Open;
end;
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7