我转化了，但是有错，那就请高手给我转换下了
if shujvjieshou.table2.FindKey([strtoint(fjh)]) then
          begin
          sleep(10);
          shujvjieshou.q1.Params[4].AsString:=floattostr(strtofloat(shujvjieshou.
            table2.Fields[2].AsString)-(strtofloat(shujvjieshou.Table2.Fields[3].asstring)
            -strtofloat(data)*0.01));

        shujvjieshou.Q1.ExecSQL;

          end
          else
            begin
            showmessage('无'+fjh+'号分机，请先进入系统设置添加该分机');
            exit;
            end;

怎么还没人理，我最怕这个了

if shujvjieshou->Table2->FindKey([StrToInt(fjh)])
{
  //延时10秒         
  DWORD lTime;
  while((GetTickCount()-lTime) / 1000 <10);
  shujvjieshou->Q1->Params[4]->AsString=FloatToStr(StrToFloat(shujvjieshou->Table2.Fields[2]->AsString)-(StrToFloat(shujvjieshou->Table2->Fields[3]->AsString)-StrToFloat(data)*0.01));
  shujvjieshou->Q1->ExecSQL;
}
else
{
  ShowMessage('无'+fjh+'号分机，请先进入系统设置添加该分机');
  return;
}

if shujvjieshou.table2.FindKey([strtoint(fjh)]) 为什么不是这样
if (shujvjieshou.table2.FindKey([strtoint(fjh)]))

if shujvjieshou.table2.FindKey([strtoint(fjh)]) 为什么不是这样
if (shujvjieshou.table2.FindKey([strtoint(fjh)]))