Fórum erro de codigo me ajudem urgente #399243

por gentileza me ajude a resolver este errro no fonte
mensagem de erro unit FPrincipal;
interface ERRO AKI
uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  Menus, ExtCtrls, DB, DBTables, ComCtrls, StdCtrls; Buttons; ExtCtrls; ComCtrls; Db; DBTables; DB; ComCtrls; StdCtrls; StdCtrls; StdCtrls; DBTables; StdCtrls; StdCtrls; DBTables, StdCtrls; StdCtrls; jpeg; XPMenu;  XiPanel, Animate, GIFCtrl, HpHint, RxCalc, backup;
type  TF_Principal = class(TForm)    MainMenu1: TMainMenu;    Cadastro1: TMenuItem;    Emprestimos1: TMenuItem;    Sistema1: TMenuItem;    Titulos1: TMenuItem;    Editoras1: TMenuItem;    Diciplinas1: TMenuItem;    Alunos1: TMenuItem;    N1: TMenuItem;    Sair1: TMenuItem;    Panel1: TPanel;    TConf: TTable;    DsConf: TDataSource;    TConfControle: TIntegerField;    TConfUltimoEditora: TIntegerField;    TConfUltimoDiciplina: TIntegerField;    TConfUltimoAluno: TIntegerField;    TConfUltimoLocalizacao: TIntegerField;    Localizao1: TMenuItem;    Autor1: TMenuItem;    Emprestimos2: TMenuItem;    ListagemporTitulos1: TMenuItem;    ListagemPorAlunos1: TMenuItem;    ListagemdeTitulosPendentes1: TMenuItem;    CadastrodeTitulos1: TMenuItem;    N2: TMenuItem;    ListagemdeTitulos1: TMenuItem;    CadastrodeEditoras1: TMenuItem;    N3: TMenuItem;    ListagemdeEditoras1: TMenuItem;    CadastrodeAlunos1: TMenuItem;    N4: TMenuItem;    ListagemdeAlunos1: TMenuItem;    Geral1: TMenuItem;    ListagemdeTitulosporAutor1: TMenuItem;    ListagemdeTitulosporDiciplina1: TMenuItem;    ListagemdeTitulosporEditora1: TMenuItem;    Print1: TPrintDialog;    TConfSenha: TBooleanField;    SobreoSistema1: TMenuItem;    N5: TMenuItem;    ListagemdeTtulosmaisLidos1: TMenuItem;    sbhint: TStatusBar;    Timer1: TTimer;    Panel2: TPanel;    N6: TMenuItem;    ModificaAlunoa1: TMenuItem;    Timer2: TTimer;    Timer3: TTimer;    Timer4: TTimer;    Timer5: TTimer;    Timer6: TTimer;    Label6: TLabel;    procedure Sair1Click(Sender: TObject);    procedure SpeedButton2Click(Sender: TObject);    procedure SpeedButton1Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure Localizao1Click(Sender: TObject);    procedure Diciplinas1Click(Sender: TObject);    procedure Autor1Click(Sender: TObject);    procedure Emprestimos2Click(Sender: TObject);    procedure ListagemdeTitulos1Click(Sender: TObject);    procedure CadastrodeTitulos1Click(Sender: TObject);    procedure CadastrodeEditoras1Click(Sender: TObject);    procedure CadastrodeAlunos1Click(Sender: TObject);    procedure Geral1Click(Sender: TObject);    procedure ListagemdeAlunos1Click(Sender: TObject);    procedure ListagemdeTitulosporAutor1Click(Sender: TObject);    procedure ListagemdeTitulosporDiciplina1Click(Sender: TObject);    procedure ListagemdeTitulosporEditora1Click(Sender: TObject);    procedure ListagemdeEditoras1Click(Sender: TObject);    procedure ListagemdeTitulosPendentes1Click(Sender: TObject);    procedure ListagemporTitulos1Click(Sender: TObject);    procedure SpeedButton3Click(Sender: TObject);    procedure Cadastro1Click(Sender: TObject);    procedure ListagemPorAlunos1Click(Sender: TObject);    procedure SobreoSistema1Click(Sender: TObject);    procedure ListagemdeTtulosmaisLidos1Click(Sender: TObject);    procedure SpeedButton9Click(Sender: TObject);    procedure FormClose(Sender: TObject; var Action: TCloseAction);    procedure Timer1Timer(Sender: TObject);    procedure ModificaAlunoa1Click(Sender: TObject);    procedure Timer2Timer(Sender: TObject);    procedure Timer3Timer(Sender: TObject);    procedure Timer4Timer(Sender: TObject);    procedure Timer5Timer(Sender: TObject);    procedure Timer6Timer(Sender: TObject);  private    { Private declarations }    procedure MHint(Sender: TObject);  public    { Public declarations }  end;
var  F_Principal: TF_Principal;   function RetZero(ZEROS:string;QUANT:integer):String;
implementation
uses FLocalizacao, FEditoras, FDiciplina, FAlunos, FTitulos, FAutor,  FEmprestimo, FListTitulos, FEmpresa, FListAlunos, FListTitulosAutor,  FListTitulosDiciplina, FListTitulosEditora, FListEditoras, Base, FR4,  FEmpTitulos, FSenha, FEmpAluno, FSobre, FItemEmprestimo, FLivroLido,  ubackup, umodifica;
{$R *.DFM}
//Função Coloca Zeros a Esquerda da String.function RetZero(ZEROS:string;QUANT:integer):String;var   I,Tamanho:integer;   aux: string;begin  aux:=zeros;  Tamanho:=length(ZEROS);  ZEROS:='';    for I:=1 to quant-tamanho do        ZEROS:=ZEROS+'0';  aux:=zeros+aux;  RetZero:=aux;end;

procedure TF_Principal.Sair1Click(Sender: TObject);begin Close;end;
procedure TF_Principal.SpeedButton2Click(Sender: TObject);begin WinExec('c:\windows\System32\calc.exe',sw_ShowNormal);end;
procedure TF_Principal.SpeedButton1Click(Sender: TObject);begin Close;end;
procedure TF_Principal.FormCreate(Sender: TObject);begin TConf.Open; With TConf do  Begin   edit;    TConfSenha.Value := True;    TConfControle.Value:=TConfControle.Value + 1;   post;end;begin        sbhint.Panels[1].Text := DateToStr(Now);        Application.OnHint := MHint;end;end;
procedure TF_Principal.MHint(Sender: TObject);begin        sbhint.Panels[7].Text := Application.Hint;end;
procedure TF_Principal.Localizao1Click(Sender: TObject);begin if F_Localizacao = nil then Application.CreateForm(TF_Localizacao,F_Localizacao); F_Localizacao.Show;end;
procedure TF_Principal.Diciplinas1Click(Sender: TObject);begin if F_Diciplina = nil then Application.CreateForm(TF_Diciplina,F_Diciplina); F_Diciplina.Show;end;
procedure TF_Principal.Autor1Click(Sender: TObject);begin if F_Autor = nil then Application.CreateForm(TF_Autor,F_Autor); F_Autor.Show;end;
procedure TF_Principal.Emprestimos2Click(Sender: TObject);begin if F_Emprestimo = nil then Application.CreateForm(TF_Emprestimo,F_Emprestimo); F_Emprestimo.Show;end;
procedure TF_Principal.ListagemdeTitulos1Click(Sender: TObject);begin if F_ListTitulos = nil then Application.CreateForm(TF_ListTitulos,F_ListTitulos); F_ListTitulos.Show;end;
procedure TF_Principal.CadastrodeTitulos1Click(Sender: TObject);begin if F_Titulos = nil then Application.CreateForm(TF_Titulos,F_Titulos); F_Titulos.Show;end;
procedure TF_Principal.CadastrodeEditoras1Click(Sender: TObject);begin if F_Editoras = nil then Application.CreateForm(TF_Editoras,F_Editoras); F_Editoras.Show;end;
procedure TF_Principal.CadastrodeAlunos1Click(Sender: TObject);begin if F_Alunos = nil then Application.CreateForm(TF_Alunos,F_Alunos); F_Alunos.Show;end;
procedure TF_Principal.Geral1Click(Sender: TObject);begin if F_Empresa = nil then Application.CreateForm(TF_Empresa,F_Empresa); F_Empresa.Show;end;
procedure TF_Principal.ListagemdeAlunos1Click(Sender: TObject);begin if F_ListAlunos = nil then Application.CreateForm(TF_ListAlunos,F_ListAlunos); F_ListAlunos.Show;end;
procedure TF_Principal.ListagemdeTitulosporAutor1Click(Sender: TObject);begin if F_ListTitulosAutor = nil then Application.CreateForm(TF_ListTitulosAutor,F_ListTitulosAutor); F_ListTitulosAutor.Show;end;
procedure TF_Principal.ListagemdeTitulosporDiciplina1Click(  Sender: TObject);begin if F_ListTitulosDiciplina = nil then Application.CreateForm(TF_ListTitulosDiciplina,F_ListTitulosDiciplina); F_ListTitulosDiciplina.Show;end;
procedure TF_Principal.ListagemdeTitulosporEditora1Click(Sender: TObject);begin if F_ListTitulosEditora = nil then Application.CreateForm(TF_ListTitulosEditora,F_ListTitulosEditora); F_ListTitulosEditora.Show;end;
procedure TF_Principal.ListagemdeEditoras1Click(Sender: TObject);begin if F_ListEditoras = nil then Application.CreateForm(TF_ListEditoras,F_ListEditoras); F_ListEditoras.Show;end;
procedure TF_Principal.ListagemdeTitulosPendentes1Click(Sender: TObject);begin  If F_ItemEmprestimo = nil then  Application.CreateForm(TF_ItemEmprestimo,F_ItemEmprestimo);  F_ItemEmprestimo.Show;end;
procedure TF_Principal.ListagemporTitulos1Click(Sender: TObject);begin if F_EmpTitulos = nil then Application.CreateForm(TF_EmpTitulos,F_EmpTitulos); F_EmpTitulos.Show;end;
procedure TF_Principal.SpeedButton3Click(Sender: TObject);begin Print1.Execute; MENSSAGEM DE ERRO AKIend;
procedure TF_Principal.Cadastro1Click(Sender: TObject);begin If TConfControle.Value>5000 then    Begin       ShowMessage('Existe um problema com esta cópia que esta causando este erro, procure informação pelo telefone (034) 9142-2497 (Irmon Junior ( JR Design )).');       Close;    end   Else    Begin      If TConfSenha.Value = True Then      Begin       Application.CreateForm(TF_Senha,F_Senha);       F_Senha.ShowModal;       TConf.Edit;       TConfSenha.Value:=False;       TConf.Post;      End;end;end;
procedure TF_Principal.ListagemPorAlunos1Click(Sender: TObject);begin if F_EmpAluno = nil then Application.CreateForm(TF_EmpAluno,F_EmpAluno); F_EmpAluno.Show;end;
procedure TF_Principal.SobreoSistema1Click(Sender: TObject);begin if F_Sobre = nil then Application.CreateForm(TF_Sobre,F_Sobre); F_Sobre.Show;end;
procedure TF_Principal.ListagemdeTtulosmaisLidos1Click(Sender: TObject);begin if F_LivroLido = nil then Application.CreateForm(TF_LivroLido,F_LivroLido); F_LivroLido.Show;end;
procedure TF_Principal.SpeedButton9Click(Sender: TObject);begin if BackupDialog = nil then Application.CreateForm(TBackupDialog,BackupDialog); BackupDialog.Show;end;
procedure TF_Principal.FormClose(Sender: TObject;  var Action: TCloseAction);beginif MessageDlg('Deseja relmente fechar o sistema da biblioteca!',mtconfirmation,[mbYes,mbNo],0)= mrNo then Action := caNone;end;
procedure TF_Principal.Timer1Timer(Sender: TObject);begin        sbhint.Panels[0].Text := TimeToStr(time);end;
procedure TF_Principal.ModificaAlunoa1Click(Sender: TObject);begin if Form_modifica = nil then Application.CreateForm(TForm_modifica,Form_modifica); Form_modifica.Show;end;
procedure TF_Principal.Timer2Timer(Sender: TObject);begin        Timer2.Interval := 500;        Label1.Visible := not Label1.visible;end;
procedure TF_Principal.Timer3Timer(Sender: TObject);begin        Timer2.Interval := 750;        Label2.Visible := not Label2.visible;end;
procedure TF_Principal.Timer4Timer(Sender: TObject);begin        Timer2.Interval := 1000;        Label3.Visible := not Label3.visible;end;
procedure TF_Principal.Timer5Timer(Sender: TObject);begin        Timer2.Interval := 1500;        Label4.Visible := not Label4.visible;end;
procedure TF_Principal.Timer6Timer(Sender: TObject);begin        Timer2.Interval := 1750;        Label5.Visible := not Label5.visible;end;
end.