Variavel do tipo Currency no Delphi7

function TFrm_Finaliza_Venda.checa_limite(vCOD_CLI: integer): bool;
var vLimite: Currency;
Begin
  // === Capta o Limite de Crédito do Cliente ====
  vLimite:=0;
  IBQuery1.Close;
  IBQuery1.SQL.Clear;
  IBQuery1.SQL.Text:='select * from CLIENTES where ID=:pID';
  IBQuery1.ParamByName('pID').AsInteger := vCOD_CLI;
  IBQuery1.Open;
  //Limite.Last;
  vLimite:=IBQuery1.FieldByName('LIMITE_CREDITO').AsCurrency;
  If IBQuery1.FieldByName('BLOQUEADO').Value<>'N' Then
  Begin
     Menssagem(1,'CADASTRO BLOQUEADO !');
     result:=false;
     exit;
  End;
  // =============================================
End;