Cadenas: eliminar espacios del final solamente

[ecfisa]

Hola ezequiel913.

Que raro...

Acabo de hacer esta prueba y me funciona correctamente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  LOCALIDAD: string;
begin
  Edit1.MaxLength:= 30;
  Edit1.Text:= '123'+StringOfChar(' ',30-Length('123')); // '123' + 27 espacios = 30 caracters
  LOCALIDAD:= Trim(AnsiUpperCase(Edit1.Text)); // tu línea
  ShowMessage(IntToStr(Length(LOCALIDAD))); // Resultado: 3
end;

Proba reproduciendo el código de arriba y si obtenes el mismo resultado, quizá el problema esté en otro lado.

Saludos.