Теперь по делу

[Drain]

Вот код, который изменяет количество знаков после запятой или точки. Вопрос, у меня последний столбик в обрабатываемом файле не изменяется. По коду, идет поиск пробелов, а за значениями в последнем столбике не пробелы и не Ентер, что же может быть?? Посмотрите код, верно ли все?

//Меняем кол-во знаков
if(CheckBox2.Checked) then
begin
begf := -1;
endf := -1;
//перебираем всю строку
for x:=1 to Length(s) do
begin
//ищем начало остатка после запятой
if(s[x]='.')or(s[x]=',') then
begf := x+1;
//ищем конец остатка
if(s[x]=' ') or (s[x]=#13) then
if(begf>0)then
endf := x-1;

//начало и конец найдены
if(begf>0)and(endf>0) then
begin
countf := (endf-begf)+1;
begf := countf-StrToInt(Edit2.Text);
if(begf>0)then
begin
Delete(s, endf-begf, begf);
Insert(' ', s, endf);
end;
//ShowMessage(IntToStr(begf)+' '+ IntToStr(endf));
begf := -1;
endf := -1;
end;
end;
end;

Memo1.Lines.Strings[i] := s;

Вот часть обрабатываемого файла:
~A DEPTH ALFAK AK1 AK2 DTP TP1 TP2
90.200 -9999.990 63.000 14.083 -9999.990 254.391 820.125
90.400 -9999.990 63.333 12.703 -9999.990 254.391 820.125
90.600 -9999.990 57.067 11.550 -9999.990 254.391 820.125
90.800 -9999.990 53.178 20.483 -9999.990 254.391 820.125
91.000 26.589 54.322 28.883 1131.469 254.391 820.125
91.200 26.050 50.000 27.715 1131.469 254.391 820.125
91.400 21.593 50.856 23.835 1131.469 254.391 820.125

[Stilet]

Не в обиду будь сказано, но такая стратегия - насилие над делфой
Вот мои соображения:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var    s:TStringList;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var k,i:integer;
begin
s:=TStringList.Create;
DecimalSeparator:='.';
s.Delimiter:=' ';
ListBox1.Items.LoadFromFile('file1.txt');
for i :=0  to ListBox1.Items.Count-1  do
begin
 s.DelimitedText:=ListBox1.Items[i];
 for k :=0  to s.Count-1  do
 begin
  s[k]:=format('%5.2f',[strtofloat(s[k])]);
 end;
 ListBox1.Items[i]:=s.DelimitedText;
end;

end;


end.