[ecfisa]

Hola.

Supongo que podrías hacer:

Código Delphi [-]
procedure Abreviar(var Cadena: string);
begin
  Cadena:= StringReplace(Cadena,'calle','CLL.',[rfReplaceAll]);
  Cadena:= StringReplace(Cadena,'edificio','ED.',[rfReplaceAll]);
  Cadena:= StringReplace(Cadena,'apartamento','AP.',[rfReplaceAll]);
  Cadena:= StringReplace(Cadena,'barrio','BRR.',[rfReplaceAll]);
  ... // mas reemplazos (si hay)
end;

Saludos.