не запускается программа ошибка, можете подсказать где ошибка
var
minus: Boolean;
begin
Result := '';
minus := (n < 0);
n := Abs(n);
repeat
Result := Chr(n mod 8 + $30) + Result;
n := n div 8;
until n = 0;
if minus then
Result := '-' + Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Clear;
try
Edit2.Text := DecToOct(StrToInt(Trim(Edit1.Text)));
except
ShowMessage('Введено не число');
end;
end;