[rolando_s]

este es mi problema nop toma la variable como variable sino como letra
les agradecere si tienen la solucion
funciona correctamente si coloco un numero 1 O 2 etc...

procedure TSalas.FormActivate(Sender: TObject);
var x:integer;
begin
with query1 do
begin
x:=1;
Close;
sql.clear;
sql.add('select*from usopc where inde=x');
open;
while not eof do
begin
inp1.Caption:=(fieldbyname('nombre').asstring);
next;
end;
end;
end;