Erro No Editor De Textos Do Curso

[Guest - Eduardo -]

Estou tendo problemas com o procedure em 35% do curso de Delphi. Minha programação está deste jeito:

unit MDI_Principal;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, Menus, ExtCtrls;

type

TfrmPrincipal = class(TForm)

MainMenu1: TMainMenu;

Arquivo: TMenuItem;

Novo1: TMenuItem;

Salvar1: TMenuItem;

Abrir1: TMenuItem;

N1: TMenuItem;

Fechar1: TMenuItem;

FecharTodas1: TMenuItem;

N2: TMenuItem;

Imprimir1: TMenuItem;

N3: TMenuItem;

Sair1: TMenuItem;

Formatar1: TMenuItem;

Fonte1: TMenuItem;

Janelas1: TMenuItem;

LadoaLado1: TMenuItem;

Horizontal1: TMenuItem;

Vertical1: TMenuItem;

Cascata1: TMenuItem;

Ajuda1: TMenuItem;

Sobre1: TMenuItem;

DIAbrir: TOpenDialog;

DISalvar: TSaveDialog;

DIFonte: TFontDialog;

DIImprime: TPrintDialog;

Status: TStatusBar;

Timer1: TTimer;

procedure Sair1Click(Sender: TObject);

procedure Novo1Click(Sender: TObject);

procedure Horizontal1Click(Sender: TObject);

procedure Vertical1Click(Sender: TObject);

procedure Cascata1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FecharTodas1Click(Sender: TObject);

procedure Salvar1Click(Sender: TObject);

procedure Abrir1Click(Sender: TObject);

procedure Fechar1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmPrincipal: TfrmPrincipal;

Janelas : integer =1;

implementation

uses MDI_Texto;

{$R *.dfm}

procedure TfrmPrincipal.Sair1Click(Sender: TObject);

begin

close;

end;

procedure TfrmPrincipal.Novo1Click(Sender: TObject);

begin

application.CreateForm(TfrmTexto,frmTexto);

frmTexto.Caption:='Documento'+IntToStr(Janelas);

Inc(Janelas);

end;

procedure TfrmPrincipal.Horizontal1Click(Sender: TObject);

begin

TileMode := tbHorizontal;

Tile;

end;

procedure TfrmPrincipal.Vertical1Click(Sender: TObject);

begin

TileMode := tbVertical;

Tile;

end;

procedure TfrmPrincipal.Cascata1Click(Sender: TObject);

begin

Cascade;

end;

procedure TfrmPrincipal.Timer1Timer(Sender: TObject);

begin

If MDIChildCount <=0 then

Begin

Fechar1.Enabled := False;

FecharTodas1.Enabled := false;

Salvar1.Enabled := false;

Imprimir1.Enabled := false;

Formatar1.Enabled := false;

end

else

Begin

Fechar1.Enabled := true;

FecharTodas1.Enabled := true;

Salvar1.Enabled := true;

Imprimir1.Enabled := true;

Formatar1.Enabled := true;

end;

Status.Panels[0].Text := Timetostr(now);

procedure TfrmPrincipal.Fechar1Click(Sender: TObject);

begin

ActiveMDIChild.Close;

end;

procedure TfrmPrincipal.FecharTodas1Click(Sender: TObject);

var

i : integer;

begin

for i := MDIChildCount -1 downto 0 do

MDIChildren[1].Close;

end;

procedure TfrmPrincipal.Salvar1Click(Sender: TObject);

begin

with TfrmTexto(ActiveMDIChild) do

if dlSalvar.FileName = '' then

begin

dlSalvar.FileName := Caption;

end;

if dlSalvar.Execute then

begin

Memo1.Lines.SalveToFile(dlSalvar.FileName);

Caption := ExtractFileName(dlSalvar.FileName);

Memo1.Modified := false;

end;

end;

end;

procedure TfrmPrincipal.Abrir1Click(Sender: TObject);

begin

if dlAbrir.Execute then

with TfrmTexto.Create(self) do

begin

Memo1.Lines.LoadFromFile(dlAbrir.FileName);

Caption := ExtractFileName(dlAbrir.FileName);

Memo1.Modified := false;

end;

end;

end.

Gostaria de saber onde está o erro para que eu possa continuar o curso.

Obrigado

[Guest - Eduardo -]

porque ninguém responde a minha dúvida neste forum? Pago o IPED, tenho dúvida no curso, sou direcionado para este forum e não tenho meus problemas resolvidos.

[rafaelbortoletto]

Qual a mensagem de erro exata?

[macks]

em qual desses eventos ai aparece a mensagem de erra cara.......

falou e t.+++