La verdad ahora mismo no recuerdo si existen una UDF en interbase para hacer lo que pides, pero si es urgente con código Delphi recorres la tabla y lo arreglas:
Código:
procedure TForm1.Button1Click(Sender: TObject);
Var
s:String;
begin
s:=Edit1.text;
Delete(s, Pos('-',edit1.text),1);
edit1.Text:=s;
end;
Este ejemplo adaptándolo a tu base de datos lo arreglaría, haces un bucle que recorra la tabla y cambias edit1.text por el nombre del campo a modificar.
Un Saludo.