procedure TFormFirst.Button1Click(Sender: TObject);
Var
SL_Row1:TStringList;
i,i1:Integer;
Block_Num:string;
begin
  SL_Row1:=TStringList.Create;
  SL_Row1.LoadFromFile('1.txt');
  Block_Num:='~Value';
 for i:=0 to SL_Row1.Count - 1 do
  if pos (Block_Num, SL_Row1.Strings[i]) > 0 then
..............


      SL_Row1.Free;
 End;
end;

#Description Описание
............
#Name Название столбцов
.........
 ~Value Значения в числах.

Var
  SL_Row1: TStringList;
  i, n1: Integer;
  Block_Num: string;
begin
  SL_Row1 := TStringList.Create;
  SL_Row1.LoadFromFile('1.TXT');
   Block_Num := '~Value';
    for i := 0 to SL_Row1.Count - 1 do
      if pos(Block_Num, SL_Row1.Strings[i]) > 0 then
        break;
  begin
    n1 := i+1;
    for i:= n1 to SL_Row1.Count - 1 do
      Memo1.lines.add(SL_Row1.Strings[i]); // тут смотрю быстрый результат
       End;
        SL_Row1.Free;
end;

var
  F : TextFile;
  S : String;
  Cnt : Integer;
begin
  AssignFile(f,'1.las');
  Reset(F);
  Cnt := 0;
  while not Eof(F) do begin
    Read(F, S);
    if Eoln(F) then Inc(Cnt);
    Readln(F);
  end;
  CloseFile(F);
   //Ответ.
  ShowMessage('Всего строк в файле: ' + IntToStr(Cnt));