Dicionário de Tipos: CAMPO | TIPO | REGISTRO | UTILIDADE | NOME | String[100] | TCadastro | Nome do Aluno | INSTRUTOR | String[100] | TCadastro | Instrutor | PLACA | String[7] | TCadastro | Placa do Carro | DATA | TDateTime | TCadastro | Data de Início do Processo | ATEORICAS | Integer | TCadastro | Número de Aulas Teóricas Realizadas | APRATICAS | Integer | TCadastro | Número de Aulas Práticas Realizadas | PTEORICA | Integer | TCadastro | Situação na Prova Teórica | PPRATICA | Integer | TCadastro | Situação na Prova Prática |

Dicionário de Variáveis: NOME | TIPO | LOCAL | UTILIDADE | REG | TCadastro | Global | Armazena as informações de um aluno | ARQ | File of TCadastro | Global | Representação do Arquivo …exibir mais conteúdo…

tion: TCloseAction); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

TCadastro = record Nome: String[100]; Instrutor: String [100]; Placa: String [6]; Data: TdateTime; ATeoricas: Integer; APraticas: