Forms

[nenufer]

Buenas otra vez . He probado lo que me has dicho

Código Delphi [-]
procedure TFrmAlquileres.BuscarMoroso();
begin
with DM do
begin
  if TblDeuda.Locate('IdSocio',TblSociosIdSocio.Value,[]) then
    begin
      if MessageDlg('¿Desea cobrar la deuda ahora?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
        begin
          if not Assigned(FrmMorosos) then
            FrmMorosos := TFrmMorosos.Create(application);
          filtros(TblDeuda,'IdSocio',TblSociosIdSocio.Value);
          FrmMorosos.Show;
          FrmMorosos.GrpMoroso.Visible := false;
          FrmMorosos.EdtDeuda.SetFocus;
        end;
    end;
end;

Si le digo que no quiero cobrar la deuda no me da ningun error, pero si elijo que sí,el primer socio que elijo(de un DBlookupCombobox) no me da ningun problema,me lo hace bien, pero al seleccionar otro me da un error: 'Acces violation at address 0040368 in module project.exe.
Libero memoria en el onclose con

Código Delphi [-]
Action := cafree;

,

pero no se si se me queda algo por hacer, porque cuando le doy por segunda vez no entra en :

Código Delphi [-]
if not Assigned(FrmMorosos) then
            FrmMorosos := TFrmMorosos.Create(application);

Por si sirve de algo la llamada la hago en el closeUp del lookupcombobox

Gracias otra vez.