[marcoszorrilla]

Código Delphi [-]
var x:integer;
 begin
   with query1 do
   begin
   x:=1;
   Close;
   sql.clear;
   sql.add('select*from usopc where inde = '+QuotedStr(IntToStr(x)));
   open;
     while not eof do
     begin
     inp1.Caption:=(fieldbyname('nombre').asstring);
     next;
     end;
   end;
 end;

Un Saludo.