Работа с последовательностями

 
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, Count      : Integer;
  StrTmp        : String;
  LastChar      : Char;
begin
 
  StrTmp := Edit1.Text;
 
  //Цикл обработки строки, которая содержит входную последовательность чисел.
  LastChar := 'x';
  i := 1;
  while i <= Length(StrTmp) do begin
    if
      ( not (StrTmp[i] in [' ', ';']) )
      and ( ( LastChar in [' ', ';'] ) or (i = 1) )
    then begin
      //Обнаружено начало записи числа.
      //Ищем окончание записи числа.
      j := i;
      for j := i to Length(StrTmp) do begin
        if j < Length(StrTmp) then begin
          if StrTmp[j + 1] in [' ', ';'] then begin
            Break;
          end;
        end;
      end;
      //Исследование значения числа.
      case StrToFloat( Copy(StrTmp, i, j - i + 1) ) < 0 of
        //Если число отрицательное - подсчитываем его.
        True  : Inc(Count);
        //Если число положительное - поиск завершён.
        False : Break;
      end;
      //Счетчик цикла i перемещаем на позицию, в которой расположен последний
      //символ в записи числа.
      i := j;
    end;
    //Запоминаем последний обработанный символ.
    LastChar := StrTmp[i];
    Inc(i);
  end;
 
  ShowMessage('Количество ведущих отризательных чисел = ' + IntToStr(Count));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, Count  : Integer;
  StrTmp    : String;
  LastChar  : Char;
begin
 
  StrTmp := Edit1.Text;
 
  //Цикл обработки строки, которая содержит входную последовательность чисел.
  LastChar := 'x';
  i := 1;
  Count := 0;
  while i <= Length(StrTmp) do begin
    if
      ( not (StrTmp[i] in [' ', ';']) )
      and ( ( LastChar in [' ', ';'] ) or (i = 1) )
    then begin
      //Обнаружено начало записи числа.
 
      //Если первым символом в записи является знак "-",
      //значит мы обнаружили запись отрицательного числа.
      case StrTmp[i] of
        //Если число отрицательное - подсчитываем его.
        '-'  : Inc(Count);
        //Если число неотрицательное - поиск завершён.
        else Break;
      end;
    end;
    //Запоминаем последний обработанный символ.
    LastChar := StrTmp[i];
    Inc(i);
  end;
 
  //ShowMessage('Количество ведущих отрицательных чисел = ' + IntToStr(Count));
  Label1.Caption := 'Количество ведущих отрицательных чисел = ' + IntToStr(Count);
end;