[glivera]

При попытке взять текст из таблицы в базее данных, появляется ошибка: ""Project Project1.exe raised exception class EOleException with messages "несоответствие типов данных в выражении условия отбора".""
Где может быть ошибка?

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
     if radiobutton1.Checked then
     begin
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('select Text from Table where id=1');
        adoquery1.Open;
        a:=adoquery1.Fields[0].AsString;
        DBmemo1.text:= a;
    end;