[Tonyy]

программа не начинает еще свое выполнение и пишет ошибку, что стек перегружен. как это исправить? вот код:

Код:

unit Usegy2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    S1: TStringGrid;
    S2: TStringGrid;
    S3: TStringGrid;
    Button1: TButton;
    O1: TOpenDialog;
    E1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function SwapDWorD(X: DWord):dword;assembler;
 asm
 bswap eax
 end;

procedure TForm1.Button1Click(Sender: TObject);
type
    THeadTras = record
         b1,b2,b3,b4,b5,b6,b7:longint;
         b8,b9,b10,b11:word;
         b12,b13,b14,b15,b16,b17,b18,b19:longint;
         b20,b21:word;
         b22,b23,b24,b25:longint;
         b26,b27,b28,b29,b30,b31,b32,b33,b34,b35,b36,b37,
         b38,b39,b40,b41,b42,b43,b44,b45,b46,b47,b48,b49,
         b50,b51,b52,b53,b54,b55,b56,b57,b58,b59,b60,b61,
         b62,b63,b64,b65,b66,b67,b68,b69,b70,b71:word;
         b72,b73,b74,b75,b76,b77,b78,b79:longint;
         b80,b81,b82,b83,b84,b85,b86,b87,b88,b89,b90,b91,b92,b93:word;
    end;


    THTras = record
         HeadTras:THeadTras;
         Data: array[1..1000] of single;
    end;

    TH400 = record
         b1,b2,b3:longint;
         b4,b5,b6,b7,b8,b9,
         b10,b11,b12,b13,b14,
         b15,b16,b17,b18,b19,
         b20,b21,b22,b23,b24,b25,b26,b27:word;
     end;

     TH3200 = record
         bit:array [1..255] of byte;
     end;
     TFN = record
         Tras: array [1..161] of THTras;
     end;

var
F:TFILEStream;
H3200:TH3200;
H400:TH400;

FN:array [1..5] of TFN;
i,j,k,index:integer;
l:real;
buf:single;
dd:array [0..3] of  byte absolute buf;
temp:byte;
begin
IF O1.Execute then
f:=TfileStream.Create(o1.FileName,fmOpenRead);

Admin: Еще раз напоминаю про оформление кода, при рецедиве последуют санкции!