Comparar DBEdit con un campo

[DOS]

Empezado por Casimiro Notevi

O sea, que lo que quieres es que cuando pulses en el botón "Imprimir ficha" se muestre el informe con los datos que has puesto en pantalla para imprimirlo.
¿Y qué problema tienes con ello?, explícalo en detalle.

Lo que se ve en la imagen con el siguiente codigo en el boton imprimir

Código Delphi [-]
procedure TForm6.SpeedButton1Click(Sender: TObject);
var
 Valor:string;
begin
with Form26.Query1 do
  begin
    Valor:=DBEdit1.Text;
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM propietario');
    SQL.Add('WHERE Cod_prop = :PVALOR');
    ParamByName('PVALOR').AsString := Valor;
    Open;
  end;
Form26.QuickRep1.Preview; // Previsualizar los resultados.
end;

me tira el siguiente error "Project1.exe raised exception class EDBEngineError with message 'type mismatch in expression.'. Process stopped..." no se cual es el error o que significa esto.