Fórum Erro ao passar os parametros do Lazarus para o Delphi #597870

    strBusca:= Trim(edtBuscaNome.Text);

   if (strBusca.Length > 0) then

   var
  strBusca : String;
begin
  strBusca:= Trim(edtBusca.Text);

   if  (Length(strBusca > 0))   then
  begin
  Module.qr_CadPessoa.Close;
  Module.qr_CadPessoa.SQL.Clear;
  Module.qr_CadPessoa.SQL.Text:= 'select a.*, c.nome as Cidade, e.sigla as UF from contato a, cidade c, estado e where a.id_cidade = c.id_cidade and c.id_estado = e.id_estado and a.ct_nome like :SQLTEXTO order by a.ID_CONTATO' ;
  Module.qr_CadPessoa.ParamByName('SQLTEXTO').AsString := '%'+edtBusca.Text+'%';
  Module.qr_CadPessoa.Open;

  end

  Else
  begin
 // ShowMessage('Nenhum nome foi encontrado com esses caracteres !');
  Module.qr_CadPessoa.Close;
  Module.qr_CadPessoa.SQL.Clear;
  Module.qr_CadPessoa.SQL.Text:= 'select a.*, c.nome as Cidade, e.sigla as UF from contato a, cidade c, estado e where a.id_cidade = c.id_cidade and c.id_estado = e.id_estado order by a.ID_CONTATO';
  Module.qr_CadPessoa.Open;
  end;