Esto es el codigo con todo y adornos.
Código SQL
[-]
CLOSE;
SQL.Clear;
SQL.Add('SELECT COUNT(APELLIDO2) As Apellido From SEMMA');
SQL.Add ('WHERE APELLIDO2 = "PEREZ"');
OPEN;
edit1.Text:= intToStr(adoquery1.FIELDBYNAME('APELLIDO').AsInteger);
Gracias