[[Espartaco]]

Por supuesto.

Este es el codigo que llama al 1º form desde el menu principal:

Código Delphi [-]
procedure TMenuPrincipal.ModificarHojadeCarga1Click(Sender: TObject);
var ficha:TModificarCarga;
begin
     Ficha:=TModificarCarga.Create(Self);
     Ficha.DbCargas.Active:=True;
     Ficha.DbDCargas.Active:=True;
     Ficha.Showmodal;
     Ficha.DbCargas.Active:=False;
     Ficha.DbDCargas.Active:=False;
     Ficha.Free;
end;

Dentro del form TModificarCarga llamo al 2º cuando pulsamos el boton modificar carga:

Código Delphi [-]
procedure TModificarCarga.BitBtn4Click(Sender: TObject);
var ficha: TModificarAlbaranCarga;
begin
    Ficha:=TModificarAlbaranCarga.Create(Self);
  Ficha.DbMarcas.Active:=True;
  Ficha.DbClientes.Active:=True;
  Ficha.DbCargas.Active:=True;
  Ficha.DbConfCarg.Active:=True;
  Ficha.DbApoyo1.Active:=True;
  Ficha.DbApoyo1.Append;
  Ficha.DbSemanas.Active:=True;
  Ficha.DbGastos.Active:=True;
  Ficha.DbUltimaLecturaClientes.Active:=True;
  Ficha.DbDCargas.Active:=True;
  Ficha.Showmodal;
  Ficha.DbMarcas.Active:=False;
  Ficha.DbClientes.Active:=False;
  Ficha.DbCargas.Active:=False;
  Ficha.DbConfCarg.Active:=False;
  Ficha.DbApoyo1.Active:=False;
  Ficha.DbSemanas.Active:=False;
  Ficha.DbGastos.Active:=False;
  Ficha.DbUltimaLecturaClientes.Active:=False;
  Ficha.DbDCargas.Active:=False;
  Ficha.Free;
  DbGrid1.SetFocus;
end;

Dentro del form TModificarAlbaranCArga llamo al 3º form cuando pulso el boton añadir marcar:

Código Delphi [-]
procedure TModificarAlbaranCarga.BitBtn2Click(Sender: TObject);
var InputStr: string;
    Activado: Boolean;
    Existe: Boolean;
    I: Integer;
    ficha: TElecMarca;
begin
Activado:=False;
Existe:=False;
I:=0;
  InputStr:='';
  MarcaElegida:='';
  Ficha:=TElecMarca.Create(Self); // al ejecutar esta linea es cuando se cuelga
  Ficha.DbMarcas.Active:=True;
  Ficha.Showmodal;
  Ficha.DbMarcas.Active:=False;
  Ficha.Free;
  InputStr:=MarcaElegida;
  if InputStr<>'' then
  begin ........

Al ejecutar la linea para crear el 3º form es cuando se cuelga.
Espero que te lo haya aclarado es muy importante para mi resolverlo lo antes posible. Gracias.