read

var
  s: string;
  f: Integer;
  t: TStringArray;

begin
  ClearDebug;
  f := OpenFile(ScriptPath + 'changelog.txt', False);
  ReadFileString(f, s, FileSize(f));
  CloseFile(f);
  f := GetSystemTime;
  t := Explode(#10, s);
  WriteLn('Simba: ' + IntToStr(GetSystemTime - f) + ' ms. [' + IntToStr(Length(t)) + ']');
  SetLength(t, 0);
end.