Hola.
Veo que agregaste información luego de mi mensaje.
Entonces sería:
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]);
Cadena:= StringReplace(Cadena, 'Avenida', 'AV.', [rfReplaceAll]);
Cadena:= StringReplace(Cadena, 'Numero', '#.', [rfReplaceAll]);
Cadena:= StringReplace(Cadena, 'Aeropuerto', 'AER.', [rfReplaceAll]);
Cadena:= StringReplace(Cadena, 'Bloque', 'BL.', [rfReplaceAll]);
Cadena:= StringReplace(Cadena, 'Case', 'CA.', [rfReplaceAll]);
Cadena:= StringReplace(Cadena, 'Piso', 'P.', [rfReplaceAll]);
end;
Ejemplo de llamada:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
begin
str:= 'calle 140 Numero 48-50 edificio Torres alfa Piso 2 apartamento 203 barrio fuentes.';
Abreviar(str);
Caption:= str;
...
end;
Saludos.