[[Héctor Randolph]]

Hola Rolando!

Me parece que esta sería la solución a tu problema

Código Delphi [-]
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');
    ParamByName('x').AsInteger:=x;
    open;
    while not eof do
    begin
      inp1.Caption:=(fieldbyname('nombre').asstring);
      next;
    end;
  end;
end;

Espero que te sea útil

Nota: Procura utilizar las etiquetas de código en tus mensajes para que sean más legibles, de esta forma recibirás una ayuda más eficiente.

Un saludo y hasta pronto.