Linha De Comando

[Guest - Leandro -]

Estou fazendo o curso de DELPHI aki no IPED...

e estou tentando executar o seguinte código do menu de "Fonte".

procedure TfrmTexto.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if Memo1.Modified = true then begin

if MessageDlg('Deseja Salvar As Alterações Feitas Em '+

Caption + '?',

mtConfirmation, (mbYes,mbNo), 0) = mrYes then begin

frmPrincipal.Salvar.Click;

Action := caFree;

frmTexto := Nil;

end else

begin

Action := caFree;

frmTexto := Nil;

end;

end else

begin

Action := caFree;

frmTexto := Nil;

end;

end;

e esta dando erro na seguinte linha:

mtConfirmation, (mbYes,mbNo), 0) = mrYes then begin

expected bu ',' found

alguém sabe me dizer o que é???

Valeu

[Guest Valew]

Valeu pela atenção, mas achei meu erro...Maio grotesco...mas ainda sou iniciante

mtConfirmation, (mbYes,mbNo), 0) = mrYes then begin

-->nesta linha, coloquei () e é []