[marcoszorrilla]

Por si lo que querías era únicamente quitar el guión:

Function QuitaMenos(S:String):String;
begin

  while Pos('-', S) > 0 do
   Delete(s,Pos('-', S),1);

  Result:=S;
end;

Le tienes que pasar una cadena, por ejemplo:
QuitaMenos('ABC-DDD');

Un Saludo.