Quitar caracter de una cadena

[Triton]

Al final opté por la siguiente opción:

with Clientes do
  begin
    First;
    while not Eof do
    begin
      Clientes.Edit;
      aux:=ClientesNIF.Value;
      aux1:=StringReplace(aux,'-','',[rfReplaceAll]);
      ClientesNIF.Value:=aux1;
      Post;
      Next;
    end;
  end;

De todos modos gracias, la opción de Substring no me sirve porque en InterBase 5.6 no existe. Además hay nifs que van así también "789542136-A".

Lo dicho, muchas gracias