Por si lo que querías era únicamente quitar el guión:
Código:
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.