unit IsoLines;
 
interface
 
uses Math, Graphics, Windows, Common;
 
type InterpolFunc = Function(X,Y:Extended):Extended;
 
type T3DPoint=record
              x:Extended;
              y:Extended;
              z:Extended;
              end;
 
type T2DLine =record

procedure TestBufferedFileStream(const sFileName: String; 
                                 const iBufferSize: Integer);
var
  fs: TBufferedFileStream;
  sr: TStreamReader;
  sw: TStopwatch;
  st: String;
begin
  sw := TStopwatch.StartNew;
  fs := TBufferedFileStream.Create(sFileName, fmOpenRead, iBufferSize);
  try
    sr := TStreamReader.Create(fs);
    try
      while not sr.EndOfStream do

TForm1=class(TForm)
...
end;
 
var
  Form1: TForm1;

Application.Initialize;
Application.CreateForm(Form1,TForm1);
Application.Run;

while not Application.Terminated do
  Application.ProcessMessages;

TMainForm=class(TForm)
...

TMySettings = class ... end;

TDBSettings = record
  server:string;