Delphi. Edit.

[zigzac-zigzac]

Здравствуйте! Вопрос от новичка-студента...
На форме есть 4 картинки и вопрос.
Правильный ответ(например 3) нужно в виде числа ввести в элемент Edit1 и нажать кнопку Buttun.
При нажатии кнопки если ответ правильный то в БД (BDE Administrator) нужно добавить ряд и в 1 столбец зачислить 2, а если нет то 0.
Компилятор в разных местах выдаёт ошибки. Пробовал по всякому. Где ошибка?

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;

type
 TForm1 = class(TForm)
 Table1: TTable;
 DataSource1: TDataSource;
 DBGrid1: TDBGrid;
 Edit1: TEdit;
 Button1: TButton;
 Label1: TLabel;
 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
 Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var A: Integer; \\ присвоить числовой тип данных
begin
 A:=StrToInt(Edit1.Text); \\перевести из строки в число
end;
 begin
Table1.First; \\добавить ряд в БД и присоеденить
Table1.Insert;
end;

begin
If
A:='3' \\присвоить а=3
then
begin
Table1.FieldByName('1').AsString:='2'; \\если да то добавить в первый столб 2
Table1.Post
end
else
begin
Table1.FieldByName('1').AsString:='0'; \\если нет то добавить 0
Table1.Post
end;