Incompatible types: 'String' and 'Integer'

procedure TForm1.Timer5Timer(Sender: TObject);
var
  Num:Cardinal;
  cnt:Cardinal;
  x,y:single;
  GamehWnd:HWND;
  aaa,bbb:single;
  aaa1,bbb1:string;  //string
begin
    
  ----------代码段(对aaa和bbb取值)--------------------  aaa1:=copy(FloatToStr(aaa),1,3);
  bbb1:=copy(FloatToStr(bbb),1,3);    
  for cnt:=0 to bMax-1 do
  begin
        
 -----------------代码段(对b_name取值)----------------
          
        if (b_name='貂蝉') and (abs(aaa1 - 258)<5) then        //错误点，把后面的判断取消就没问题
        begin
        button6.Click;
        button3.Click;
        x:= 258;
        y:= 314;
        AutoWalk(x,y,0);
        Timer5.Enabled:=false;
        end;
  end;
end;
end;        错误提示[错误] myDLl.pas(512): Incompatible types: 'String' and 'Integer'
[致命错误] Hook.dpr(14): Could not compile used unit 'myDLl.pas'
大致估计是类型错误，就是不知道怎么弄，新手。