Erro nos codigos private e var

[GeoProgramador]

Alguém poderia me ajudar nesses codigos abaixo está dando erro no private e var e diz o seguinte erro: expected implementation but received and indentifier  private at line 27 e expected the end of file but received var at line 34

 

 

 

unit U_principal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, U_cad_cliente;

type

    TFrmprincipal = class(TForm);
    TFrmCadClient = class(TForm);
    MainMenu1= TMainMenu;
    Cadastro1= TMenuItem;
    Alunos1= TMenuItem;
    Modalidades1= TMenuItem;
    Medidas1= TMenuItem;
    N1= TMenuItem;
    Fechar1= TMenuItem;
    Movimento1= TMenuItem;
    PagamentosdeMensalidades1= TMenuItem;
    Sobre1= TMenuItem;
    procedure Alunos1Click(Sender: TObject);

  private
    { Private declarations }

  public
    { Public declarations }

  end.
var
  Frmprincipal: TFrmprincipal;
  FrmCadCliente: TFrmCadCliente;

implementation

{$R *.dfm}

procedure TFrmprincipal.Alunos1Click(Sender: TObject);
begin
try
  if FrmCadCliente = Nil then
   begin
     FrmCadCliente = TFrmCadCliente.Create(self);
     FrmCadCliente.Showmodal;
   end;
except
   ShowMessage('Erro ao tentar exibir a tela de cadastro de clientes !! ');

end;
end;
 end;
end.
 

[pestana.]

depois do public tem que ser end com o (;) e não (.)

e no final tem um end a mais (end;)

 

qualquer coisa volte a postar.

 

Editado Novembro 3, 2016 por pestana.