请教BLOB图象的字段问题。(200分)

菜菜想建立一个学籍管理系统，在其中定义了一个blob的字段来存放每个人的照片，
现在每个人的照片分别在各自的BMP文件中，我不知怎末通过编程把每个人的图象写入
字段中。

var t:TBlobField;
begin
T := TBlobField.Create(Self);
T.FieldName := 'Images';
T.Name := Query1.Name + T.FieldName;
T.DataSet := Query1;
if not (Query.State in [dsInsert, dsEdit]) then Query1.Insert;
T.LoadFromFile('c:/Windows/Waves.bmp');
Query1.Post;
end;

table_name.fieldbyname(field_name).loadfromfile(file_path);
post即可.

刃血：table_name.fieldbyname(field_name)没有 loadfromfile(file_path)这个函数;
yangkee：很遗憾，您的程序能够编译但一执行就出错。
我感觉用ASSIGN这个函数可能解决这个问题，但是我一直没有作出来。

TBlobField(table.fieldbyname('图像字段名')）.LoadFromFile('图片文件名');

procedure TForm1.Button1Click(Sender: TObject);
begin
//打开
if (OpenDialog1.Execute) then
begin
Image1.Picture.Create ;
Image1.Picture.LoadFromFile ( OpenDialog1.FileName );
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// 插入
ADOTable1.Edit ;
ADOTable1.Insert ;
ADOTable1Tu.Assign( Image1.Picture.Bitmap );
ADOTable1BuWei.Value :=OpenDialog1.FileName;
ADOTable1.Post ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//修改
ADOTable1.Edit ;
ADOTable1Tu.Assign( Image1.Picture.Bitmap );
ADOTable1.Post ;
end;

我已经接受答案了.谢谢各位的帮助.