[Maria85]

Hola otra vez a todos!!

Estoy intentando crear un método que pulsando en un botón me abra un archivo...Me sale el diálogo de abrir bien, pero cuando selecciono uno y le doy a aceptar me sale el siguiente error:

Object reference is not set to an instance object

Si alguien pudiera decirme algo...
Os pongo aqui abajo el método:

Código Delphi [-]
 
 
procedure TTFormMain.OpcionAbrir(Sender: TObject);
var
  nombreArchivo: string;
  i: integer;
  ficheroAbierto: integer;
begin
  ficheroAbierto:=0;
  if DialogoAbrir.Execute then
    begin
        inc(numeroPestana);
        for i:=0 to numeroPestana-1 do
          begin
                if (numeroPestana<>0) and
                    (compareText(DialogoAbrir.FileName,listaVentanas[i].pestana.hint)=0) then
                  begin
                    nombreArchivo:='EL FICHERO: '+DialogoAbrir.FileName+' YA ESTA ABIERTO';
                      ShowMessage(nombreArchivo);
                    dec(numeroPestana);
                    ficheroAbierto:=1;
                  end;
          end;

       if ficheroAbierto=0 then
         begin
                AbrirEditor(DialogoAbrir.FileName);
                listaVentanas[numeroPestana].editor.Lines.LoadFromFile(DialogoAbrir.FileName);
                listaVentanas[numeroPestana].guardado := true;
                listaVentanas[numeroPestana].carpetaTrabajo := DialogoAbrir.FileName;
                nombreArchivo := ObtenerNombrePestana(listaVentanas[numeroPestana].carpetaTrabajo);
                delete(listaVentanas[numeroPestana].carpetaTrabajo,
                       pos(nombreArchivo,listaVentanas[numeroPestana].carpetaTrabajo),
                       length(listaVentanas[numeroPestana].carpetaTrabajo));
         end;
    end;
end;