Ошибка в делфи

[лелик]

Если я ввожу число, нажимаю решить, решает нормально, но при закрытии сообщаен:
project .. raised exception class EAccessViolation with messege 'Access violation at adress 00413AC2 in module 'pr.exe'. read of address 00000001'. process stopped. use Step or Run to continue.
а в коде я пишу

procedure TFMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Вы действительно хотите закончить работу?',
mtConfirmation, [mbOK, mbCancel],0)= mrCancel
then CanClose:=false;
end;

procedure TFMain.ExitClick(Sender: TObject);
begin
FMain.Close;
end;

procedure TFMain.StartClick(Sender: TObject);
var i,a:integer;
begin
otvet.Caption:='';
If not(Shislo.text='') then
begin
k:=length(Shislo.Text);
Setlength(x,k); r:=1;
while not((exp(r*ln(2))-r)>k) do r:=r+1;
n:=r+k; r:=0; a:=0;
for i:=1 to n do
if i=exp(a*ln(2)) then
begin
x[i-1-r]:=0;
r:=r+1; a:=a+1;
end else
x[i-1]:=strtoint(Shislo.Text[i-r]);
n:=r+k;
otvet.Caption:=inttostr(n);
end else MessageDlg('Введите число',
mtWarning, [mbOK],0);
end;