Cadastro de aluno de autoescola linguagem pascal, programa delphi

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 Físico na Memória | I | Integer | Local (Button2Click) | Contador para a leitura de todas as posições do arquivo | NOME | String | Local (Button3Click) | Nome do Aluno digitado pelo Usuário | POS | Integer | Local (Button3Click) | Posição do Registro localizado no arquivo | NOME | String | Procedimento BuscarAluno (parâmetro) | Representa o nome do aluno que será procurado | POS | Integer | Procedimento BuscarAluno (parâmetro) | Posição do registro localizado no arquivo | ACHOU | Boolean | Procedimento BuscarAluno | Indica se os dados foram encontrados | NOME | String | Local (Button4Click) | Nome do Aluno cujo cadastro será alterado | POS | Integer | Local (Button4Click) | Posição do registro localizado no arquivo | NOME | String | Local (Button5Click) | Nome do aluno cujo cadastro será preenchido | POS | Integer | Local (Button5Click) | Posição do registro localizado no arquivo |

DELPHI:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, ComCtrls; type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Label1: TLabel; Label3: TLabel; Label4: TLabel;