Recorrer un arreglo hasta el ultimo

[kirios]

Hola, tengo un arreglo de strings y quiero recorrerlo hasta el ultimo casillero ocupado, que puede no ser el ultimo del arreglo. Alguna idea?
graciaaas

[roman]

Código Delphi [-]
for I := 0 to Length(Arreglo) - 1 do
begin
  if Arreglo[i] = '' then break;

  ...

end;

// Saludos