Problema con query para una base de datos de Access
 

Saludos, tengo un problema en tiempo de ejecucion. Tengo un Label y el evento move para cuando el usuario pase por el area de este label haga un query a una base de datos de access con un componente Tquery el campo a consultar es de tipo texto. Mas especificamente me marca el error en el where, al parecer es un problema de sintaxis, por que si le quito el where si funciona, aqui esta el codigo:

procedure TForm1.A1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
query3.Active:=false;
query3.sql.Text:='select Empresa from etiquetas where stand="A01" ' ;
query3.Active:=true;

Estoy seguro que tienen la respuesta, gracias.

A ver prueba esto:

Código Delphi [-]
procedure TForm1.A1MouseMove(Sender: TObject; Shift: TShiftState; X, 
Y: Integer); 
begin 
query3.Active:=false; 
query3.sql.Text:='select Empresa from etiquetas where stand=' + QuotedStr('A01'); 
query3.Active:=true;

Unterminated string
 

Gracias por constestar tan rapido, ya hice el cambio y ahora me muestra un error en compilación.

"Unterminated string"


¿Que puedo hacer?

Olvidenlo, ya funcionó
 

Tenia una comilla de mas, y si funcionó con el cambio que me propusieron.

Muchas gracias.