Ошибка: Operator not applicable to this operand type

procedure TForm2.Button3Click(Sender: TObject);
var a,b,c:string;
d:array[1..9] of string;
begin
  a:=stringgrid1.cells[1,1];
  b:=edit1.text;
  c:=b-a;
if StringGrid1.Cells[1,1]<Edit2.Text then
memo1.lines.loadfromfile('C:\Íà÷àëà ìàòåìàòèêè.txt')
else Memo1.Clear;
if c=a then
memo2.lines.loadfromfile('C:\ÝÔ1.txt')
if StringGrid1.Cells[2,1]<Edit2.Text then
memo2.lines.loadfromfile('C:\Àëãåáðà è ãåîìåòðèÿ.txt')
else Memo2.Clear;
if StringGrid1.Cells[3,1]<Edit2.Text then
memo3.lines.loadfromfile('C:\Ìàòåìàòè÷åñêèé àíàëèç.txt')
else Memo3.Clear;
if StringGrid1.Cells[4,1]<Edit2.Text then
memo4.lines.loadfromfile('C:\Ôèçèêà.txt')
else Memo4.Clear;
if StringGrid1.Cells[5,1]<Edit2.Text then
memo5.lines.loadfromfile('C:\Ýëåìåíòàðíàÿ ôèçèêà.txt')
else Memo5.Clear;
if StringGrid1.Cells[6,1]<Edit2.Text then
memo6.lines.loadfromfile('C:\Óðàâíåíèÿ ìàòåìàòè÷åñêîé ôèçèêè.txt')
else Memo6.Clear;
 
end;

procedure TForm2.Button3Click(Sender: TObject);
var s: string;
    i: Integer;
    n: Integer;
    k: Integer;
begin
if not (TryStrToInt(Edit2.Text,n)) then Exit;
for i:=1 to StringGrid1.ColCount-1 do begin
 if TryStrToInt(StringGrid1.Cells[i,1],k) then
   k:=n-k
 else
//если значение ячейки не может быть преобразовано в целое число то,
//считаем разность=0
   k:=0;
//теперь анализируем что у нас получилось при вычитании
  case k of
    1..9: LoadFirstDoc; //разность 1..9 грузим файл №1
    10..18: LoadSecondDoc; //разность 10..18 грузим файл №2
    19..27: LoadThird;//разность 19..27 грузим файл №3
  end;
end;end;

procedure TForm2.Button3Click(Sender: TObject);
var
  i,v,n: Integer;
  fname:string;
  m:array[1..6] of tmemo;
const
  fnames:array [1..6] of string=('Начала математики','Алгебра и геометрия',
      'Математический анализ','Физика','Элементарная физика',
      'Уравнения математической физики');
begin
  v:=StrToInt(Edit1.Text);
  m[1]:=Memo1; m[2]:=Memo2; m[3]:=Memo3;
  m[4]:=Memo4; m[5]:=Memo5; m[6]:=Memo6;
 
  for i := 1 to StringGrid1.ColCount-1 do
  begin
    n:=StrToInt(StringGrid1.Cells[i,1]);
    if n<v then
    begin
      fname := ExtractFilePath(ParamStr(0))+fnames[i]+'.txt';
      m[i].lines.loadfromfile(fname);
    end
    else
      m[i].Clear;
  end;
end;