Здравствуйте! Нужна помощь, я еще новичек, так что не судите строго,
Конкретно по этому кусочку кода:
var
Form2: TForm2;
bot : integer;

implementation

{$R *.dfm}

uses Unit3, Unit4, Unit1, Unit5;

procedure TForm2.ADOQuery1CalcFields(DataSet: TDataSet);
begin
if DataSet['Средний_бал'] < 4 then DataSet['Стипендия'] := 'Стипендии не будет'
else DataSet['Стипендия'] := IntToStr(DataSet['Средний_бал']*10);
if DataSet['Средний_бал'] > 10 then DataSet['Стипендия'] := 'Некорректная оценка';
if DataSet['Средний_бал'] < 0 then DataSet['Стипендия'] := 'Некорректная оценка';
bot:=DataSet['Средний_бал'];
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
if bot > 9 then
Memo1.Lines.Add(bot);


end;


Нужно чтоб оценки которые считываются с DataSet['Средний_бал'] записывались в переменную bot (только числа которые больше 9!, тоесть 9-10) выводились в Memo1. Проблема в том что, переменную я записал как глобальную, присвоил "Средний_Бал" к ней, записал чтоб выводило в мемо, но выдает ошибку данного типа:
[dcc32 Error] Unit2.pas(71): E2010 Incompatible types: 'string' and 'Integer'

Помогите разобраться в чем проблема!