procedure TForm1.Button1Click(Sender: TObject);
type
  TStruct = Record
    OrderNo : Integer;
    ItemNo : Integer;
    PartNo : Integer;
    Qty : Integer;
    Discount : Integer;
end;

var
    Path : String;
    F : file of TStruct;
    FData : TStruct;
begin
    Path := ExtractFilePath(Application.ExeName)+'Data.txt';
    AssignFile(F, Path);
    Rewrite(F);

    query1.First;
    while not Table1.Eof do begin
        FData.OrderNo := query1.FieldByName('OrderNo').AsInteger;
        FData.ItemNo := query1.FieldByName('ItemNo').AsInteger;
        FData.PartNo := query1.FieldByName('PartNo').AsInteger;
        FData.Qty := query1.FieldByName('Qty').AsInteger;
        FData.Discount := query1.FieldByName('Discount').AsInteger;

        Write(F, FData);
        Table1.Next;
    end;

    CloseFile(F);
end;

이렇게 작성을 했거든여 그런데
    F : file of TStruct;
부분에서 file type이 아니라고 나옵니다. ㅠ.ㅠ
이부분이 에러가 나는데 잘 모르겠어여 ㅠ.ㅠ
답변 부탁드려염