[dr. F.I.N.]

Не очень понятно что Вы пытаетесь сделать. Но я предполагаю, что отслеживать количество строк в файле. Следуя Вашим началам, поправлю код:

Код:

procedure TForm2.CheckLinesCount(aFileName: string);
begin
  if not FileExists(aFileName) then
    Label1.Caption := 'File not found.'
  else
  with TStringList.Create do
  try
    LoadFromFile(aFileName);
    Label1.Caption := Count;
  finally
    Free;
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  CheckLinesCount('C:\1.txt');
end;
 
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  CheckLinesCount('C:\1.txt');
end;