Hola Gonzalo.
El problema está en el nombre de campo
Index, reemplazalo en la tabla con el
Database Desktop por
Indice (por ejemplo) y funcionará sin inconveniente.
No puedo explicar el motivo de esto por que no trabajo con BDE, pero aparentemente
Index sería un nombre reservado o algo así...
Esta fué mi prueba final e inserta correctamente:
Código Delphi
[-]
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Insert Into ProfesorCurso(Profesor, Curso, Fecha, Indice, EstadoInscripcion) ');
SQL.Add('Values(:Profesor, :Curso, :Fecha, :Indice, :Estado)');
ParamByName('Profesor').AsInteger:= DBEdit1.Field.AsInteger;
ParamByName('Curso').AsInteger:= Table1.FieldByName('EmpNo').AsInteger;
ParamByName('Fecha').AsDateTime:= Date;
ParamByName('Indice').AsInteger:= 1;
ParamByName('Estado').AsString:= 'Activo';
ExecSQL;
end;
Saludos.