(1) Te aconsejo usar QuoteStr para añadir las comillas a los campos de texto o no usar el LIKE si es una campo numérico.
(2) Ejecuta paso a paso y mira por qué parte del IF entra; Sólo para saber si es problema de la consulta o de la línea de asignación.
(3) Para recuperar la info de la consulta prueba como alternativa:
Código Delphi
[-]
Label1.Caption := ADOQuery.FieldByName('IdSocios').AsString;
A ver si
utilizamos los TAG's correctamente.