AccessViolation inexplicable

[nena_yei]

Hola, me han encargado solucionar un error de una aplicación de Delphi, y la verdad.. por más que pruebo cosas y lo miro, no lo entiendo. Igual porque llevo años sin tocar Delphi, no sé.
El problema es "tan sencillo" como que en la funcion FormCreate intento hacer un ShowMessage y me salta el error de AccesViolation, he probado de no ponerlo,y no da ningún problema, pero es intentar mostrar algo y pam!
En el fichero .dpr tengo lo siguiente:

Código Delphi [-]
begin
  Application.Initialize;
  Application.Title := 'Diccionario crítico etimológico castellano e hispánico';
  Application.HelpFile := 'AYUDA.HLP';
  Application.CreateForm(Tportada, portada);
  if(portada.carga)then begin
       Application.CreateForm(Tcentral, central);
    Application.CreateForm(Tdades, dades);
    Application.CreateForm(Tmultiple, multiple);
    Application.CreateForm(Tllengues, llengues);
    Application.CreateForm(Tdocumentacio, documentacio);
    Application.CreateForm(Tbuscabierta, buscabierta);
    Application.CreateForm(Tabreviaturas, abreviaturas);
    Application.CreateForm(Tnotacionfonetica, notacionfonetica);
    Application.CreateForm(Tintroduccion, introduccion);
    Application.CreateForm(Tfuentescas, fuentescas);
    Application.CreateForm(Tdedicatoria, dedicatoria);
    Application.CreateForm(Tindibiblio, indibiblio);
    Application.CreateForm(Tindicacionesbibliograficas, indicacionesbibliograficas);
    Application.CreateForm(Tabreviaturastxt, abreviaturastxt);
    Application.CreateForm(Tpopuplema, popuplema);
    Application.CreateForm(Tcredits, credits);
    Application.CreateForm(Tmapagrafies, mapagrafies);
    Application.CreateForm(Tcarga, carga);
    Application.Run;
  end;

He probado comentandolo todo y dejando solo el FormCreate de la portada,y NADA!


Y la función del FormCreate es la siguiente:

Código Delphi [-]
procedure Tportada.FormCreate(Sender: TObject);
var unidad:string;
begin
 carga := false;
 unidad:=GetFirstCdRomDrive;
 if not IsDiskIn(unidad[1]) then begin
   carga := false;
   Showmessage('hola');
 end else begin
   descomprimir();
 end;
end;

No sé si necesitáis alguna información más.. si no me explico o hay algo que no se entiende, por favor, comunicadmelo y me explicaré encantada.
Espero que me deis algún tipo de solución,pq la verdad es que ya no sé que probar!!
Gracias de antemano, un saludo!

[Ñuño Martínez]

Pon puntos de ruptura y ejecuta paso a paso. En cuanto localices la línea, localizarás el error.

De todas formas, ahí estáis creando muchas ventanas. Lo mejor es crear sólo las más utilizadas y el resto dejarlas hasta el momento preciso en el que tienes que utilizarlas, destruyéndolas en cuanto no se necesiten.

[nena_yei]

Antetodo, gracias por la respuesta. Lo de debugar punto por punto lo he hecho infinitas veces, y el problema es que el error salta donde pongo el ShowMessage (lo ponga antes o después).
También he probado de crear únicamente la portada, pero ni así! Aunque solo tenga esto de Application.CreateForm(Tportada, portada); tampoco funciona.

Q desesperación...

[Paulao]

Bueno, como usted ya hizo varios testes y hasta ahora nada, intenta poner el Form Portada para crear por el ultimo y no como el primer como se ve.

[Davidcfres]

Intenta eso :

no utilizas FormCreate pero override el Create de Form
y, depues del inherited creo que podras hacer un showmessage...

Código Delphi [-]

TForm4 = class(TForm)
  public
   { Déclarations publiques }
    constructor Create(AOwner: TComponent); override;
   end;

(...)

constructor TForm4.Create(AOwner: TComponent);
begin
  inherited;
  showmessage('OK');
end;

no sé si va a resolver tu problema, pero es una pista

David

[[Chris]]

Hola, en el ejemplo pones la línea:

Código Delphi [-]
ShowMessage('Hola');

Sin embargo, no te creo que este sea el código real que estás utilizando. Dejame suponer que intentas mostrar el contenido de alguna propiedad de un objeto o bien el contenido de alguna variable. Si es así, entonces debe ser que el objeto->propiedad / variable no ha sido inicializado.

Revisa que la variables que muestra esté inicializada.

Saludos.