Работа на form. RAD Studio. Delphi

 MemoR.Lines.Add('------------------------------------------------');
    MemoR.Lines.Add('---Фамилия ученика, рост которого меньше всего отличается от роста "новенького"---');
      //Находим ранее вставленную запись
    DM1.QClass.Locate('Rost',Nrost,[loPartialKey]);
    //Переходим к следующей
    DM1.QClass.Next;
    //Разница в росте между новеньким и предыдующим по величине роста
    Delta:=Nrost-StrToInt(DM1.DSClass.DataSet.FieldByName('Rost').AsString);
    //Переходим на 2 записи выше и
    DM1.QClass.Prior;
    DM1.QClass.Prior;
    //Разница в росте между новеньким и тем у кого рост по величине немного больше
    Delta1:=StrToInt(DM1.DSClass.DataSet.FieldByName('Rost').AsString)-Nrost;
          //Находим ранее вставленную запись
    DM1.QClass.Locate('Rost',Nrost,[loPartialKey]);
    D:=Delta1-Delta;
 
    case D of
      1..265 : begin  DM1.QClass.Next; MemoR.Lines.Add(DM1.DSClass.DataSet.FieldByName('F').AsString); end;
     -265..-1: begin  DM1.QClass.Prior; MemoR.Lines.Add(DM1.DSClass.DataSet.FieldByName('F').AsString); end;
           0 : MemoR.Lines.Add('Меньше всего отличаются от роста новенького ученики которые выше и ниже его в списке');
     end;