Invisible Window (Programando con Delphi)

[BrunoBsso]

Hola.
Leete como usar etiquetas por el bien de todos.
Empecemos.
En tu primer trozo de código estás haciendo algo innecesario.
Me refiero a

Código Delphi [-]
procedure TFprincipal.RegSolicitudClick(Sender: TObject);
begin
  Fprincipal.Enabled:=false;
  Fregistro.Show;
end;

Mejor borrá esas 2 líneas y poné solamente FRegistro.ShowModal;
Sigamos.
En el evento OnCLick de NuevoE Esto es innecesario también, mirá

Código Delphi [-]
if Tregistro.RecordCount=0 then
  c:=1
else
  c:=Tregistro.RecordCount+1;

Te explico. Si RecordCount toma el valor 0, vos querés ponerle 1 ¿cierto? Bueno, ¿1 no es igual a RecordCount (que valdría 0) + 1?
Entonces, solamente dejá a c:=Tregistro.RecordCount+1 y listo.
En lo demás de ese evento, no veo error porque no conozco la tabla y no sé dónde te corta la ejecución con el error.

Por último, en el evento OnClick del botón VolverE no deberías hacer ese código.
Más simple, ponelo así

Código Delphi [-]
procedure TFRegSolicitud.VolverEClick(Sender: TObject);
begin
  Close;
end;

Yo necesitaría más datos de la tabla para encontrar el error. Pero seguramente los que manejan muy bien bases de datos te lo encuentren así nomás.
Saludos.