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')); LOCALIDAD:= Trim(AnsiUpperCase(Edit1.Text)); ShowMessage(IntToStr(Length(LOCALIDAD))); end;
Proba reproduciendo el código de arriba y si obtenes el mismo resultado, quizá el problema esté en otro lado.
Saludos.