多个自定义类 存到数据库

Question

以前做的软件（不是我做的）， 数据库中有个字段（image）,现在我可以读取到此image,
举例如下：有两个类：
type   
   TOneGrade=packed record //1     
          GradeName:string[FILENAME_LEN];
  Criterion:string[255];
end;
  TGradeData = record //2
        Gradecount:Integer;
        Gradelist:array[1..128] of TOneGrade;
end;读取：
sSchdata := qry2.FieldByName('tf_schdata').AsString;
BigSch.SchList := TMemoryStream.Create ;
BigSch.SchList.Position :=0;
BigSch.SchList.Write(sSchlist[1],Length(sSchlist));
//--  函数调用
BatchData.BatchSch.SchList.Position:=
sizeof(TSchStep)*(iTray.SchStep)+sizeof(integer);
BatchData.BatchSch.SchList.Read(PSch^,sizeof(TSchStep)); 这些代码只是一部份，我只是想说明一下怎样读取出来，（因为有30多个类，代码太长了）,
最终读取出来的东东就和上面TOneGrade差不多，可以直接读取，
我的问题是：怎样将这么多的东东一次性存到数据库，（我只会读取，不会保存）

Answer 1

数据 表建好后，用ADO的几个相关数据集连接，把读取的数据插入到数据表就可以了。

Answer 2

例如：
procedure TForm1.btn7Click(Sender: TObject);
var t1:TOneGrade ;
    t2:TSchStep ;
    str1:string;
begin
   t1.GradeName :='A01';     //string
   t1.Criterion := 'adfadf';  //string
   t2.StepType := 4;      //int
   t2.StepName :='ddddd';  //string
   t2.BItBe := 1000;       //int
   t2.length := 100;       //int
end;怎样将 t1,t2 两个变量合在一起，存到SQL数据库的一个字段（image）？