100分请教，这些代码怎么改写？ ( 积分: 100 )

下面这些代码是上传并保存一张图片的，现在想分别保存两张图片，即 增加('照片二')。请教，如何修改？

procedure TBM_ZHIYUANF.loadimage;
var
bmp:TBitmap;
begin
try
bmp := Tbitmap.Create;
dm.zhiyuan2.Open;
bmp.Assign(dm.zhiyuan2.Fields[19]);
photo.Picture.Bitmap:=bmp;
finally
bmp.Free;
end;
end;

procedure TBM_ZHIYUANF.saveimage;
var
MyJPEG : Tbitmap;
MS: TMemoryStream;
begin
dm.zhiyuan2.Edit ;
MyJPEG := Tbitmap.Create;
try
with MyJPEG do
begin
Assign(photo.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;

TBlobField(dm.zhiyuan2.FieldbyName('照片')).LoadFromStream(MS);
dm.zhiyuan2.Post ;
end;
finally
MyJPEG.Free;
end;
end;

下面这些代码是上传并保存一张图片的，现在想分别保存两张图片，即 增加('照片二')。请教，如何修改？

procedure TBM_ZHIYUANF.loadimage;
var
bmp:TBitmap;
begin
try
bmp := Tbitmap.Create;
dm.zhiyuan2.Open;
bmp.Assign(dm.zhiyuan2.Fields[19]);
photo.Picture.Bitmap:=bmp;
finally
bmp.Free;
end;
end;

procedure TBM_ZHIYUANF.saveimage;
var
MyJPEG : Tbitmap;
MS: TMemoryStream;
begin
dm.zhiyuan2.Edit ;
MyJPEG := Tbitmap.Create;
try
with MyJPEG do
begin
Assign(photo.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;

TBlobField(dm.zhiyuan2.FieldbyName('照片')).LoadFromStream(MS);
dm.zhiyuan2.Post ;
end;
finally
MyJPEG.Free;
end;
end;

最简单是再增加一个与[照片]同样类型的字段。

接受答案了.