[defcon1_es]

Hola, creo que te sobra un end;

Código Delphi [-]
with QueryDataModule.ConyugeZQuery do 
begin 
  If active then close; 
  SQL.Clear; 
  SQL.Add('Insert Into cliente(Apellido,Nombre)'); 
  SQL.Add('Values (:Apel,:Nom)'); 
  ParamByName('Apel').Value:=AltasForm.ApellidoEdit.Text; 
  ParamByName('Nom').Value:=AltasForm.NombreEdit.Text; 
  ExecSQL; 
  end; //Este sobra.
end;