[roman]

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

  ...

end;

// Saludos