Не удаляет элементы

[RIO]

Здравствуйте! Помогите разобраться, хочу удалить все элементы до ключевого, в данном случаи ключевой это Country, но удаляет почему-то только первый элемент в списке и все. В чем проблема ?

var
  S, Country: string;
  R: TStringList;
  I, IRegion: Integer;
begin
  R := TStringList.Create;
  R.Text := List.Text;
  Country := CountryEdit.Text;
  for IRegion := 0 to R.Count - 1 do
  begin
      S := R.Strings[IRegion];
      Delete(S, PosUp('-', S) - 1, Length(S));
      if S <> Country then
         R.Delete(IRegion)
      else
         Break;
  end;
  R.SaveToFile('C:\1.Txt');
  R.Free;
end;

[Stilet]

А пошаговкой пройтись?
Может у тебя в Country содержится не совсем то что в списке, паример пробелы по бокам, или разными регистрами символы.

[RIO]

Все хорошо с этим...

[Alter]

Так оно, или нет, смотрите:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    CountryEdit: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  S, Country: string;
  R: TStringList;
  I, IRegion: Integer;
  B :Boolean;
begin
  R := TStringList.Create;
  R.Text := Memo1.Lines.Text;
  Country := CountryEdit.Text;
   try
  B := True;
  IRegion := 0;
  while B and (IRegion <= R.Count-1) do
  begin
      S := R.Strings[IRegion];
      Delete(S, Pos('-', S), Length(S) - Pos('-', S) + 1);
      if S <> Country then
      begin
       R.Delete(IRegion);
       IRegion := -1; // в начало т.к Inc(IRegion)
      end
       else
      B := False;
      Inc(IRegion);
  end;
  R.SaveToFile('C:\1.Txt');
   finally
  R.Free;
   end;
end;

end.

[mihali4]

To RIO :
А убрать

      else
         Break;

не пробовали ?

[RIO]

Спасибо всем