예제가 없어서 걍 대충 쓴거에요

말씀대로 엄청간단해 집니다.

procedure TForm1.FormCreate(Sender: TObject);
begin
  m_Strings := TStringList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//////////////////////////////////////////////
// 화일 가져올때는
//////////////////////////////////////////////
//  m_Strings.LoadFromFile('SampleLoad.txt');
//////////////////////////////////////////////
  m_Strings.Add('demo' + FormatDateTime('YYYYMMDD-HHNNSS', now ));
  if m_Strings.Count >= 100 then
  begin
    m_Strings.SaveToFile(FormatDateTime('YYYYMMDD-HHNNSS', now ) + '.txt' );
    m_strings.Clear;
  end;
end;

안녕하세요. 최용일입니다.

텍스트파일이라면 TStringList를 써보세요...

읽고 쓰고 저장하고 불러오는게 아주 간단히 해결됩니다.

몇줄이 저장되어 있는가도 TStringList.Count 속성을 보시면 알 수 있구요...

^^ 항상 즐코하세요...