[quote=
consulta := 'Select logUsuario from TabUsuarios where LogUsuario like ='+char(39)+ txtUsuario.Text +char(39)+';
[/QUOTE]
Puede que sea más cómodo algo así como esto:
Código SQL
[-]
'select logUsuario from tabUsuarios where logUsuario like '+quotedStr(txtUsuario.Text)