Sheila Fragoso

[Vou testar!! Mas acredito que é isso mesmo.. Brigadão Ah, Será que você poderia me ajudar só um pouquito como eu faço para brecar que ah pessoa feche o sistema na realidade quando ele tentasse fechar encaminharia para um form com um resultado final, entende ? Grata desde já. Sheila

Fiz assim: Na realiadade qd o usuário clicar no botão estará incrementado os votos para uma urna procedure TForm6.Button3Click(Sender: TObject); var ContAnabelle, X:Integer; begin ContAnabelle:=0; Begin Case MessageDlg ('Confirma Voto para Lider de Sala da Turma 6ªA para Anabelle Benevides ', mtConfirmation,mbYesNoCancel, 0 ) of idYes: Begin ContAnabelle:=ContAnabelle+1; While ContAnabelle <>0 Do Begin X:=X+ContAnabelle; ContAnabelle:=0; ReadVoto.Text:=IntToStr(X); End; MessageDlg ('Parabéns, Voto Confirmado', mtWarning, [mbOK], 0 ) ; If X<>0 Then Begin ReadVotoAnabelle.SelText:=X; ContAnabelle:=X ; end Else end; Else Begin MessageDlg ('Vote Outra Vez', mtWarning,[mbOK], 0 ) end; end; end; end; Obrigada Sheila