第五次提出这个问题：如何通过DELPHI调用SQL SERVER 过程向SQL SERVER 存入图象。

我先声明我没有作过，
但给你个例子，自己看，
有问题就说
    向SQL Server插入记录相信大家都会做，但是如果表中带有Image字段就不好弄了，这里有一个例子，非常安全，同时也向大家展示动态生成控件的技巧（对高手来说班门弄斧了）procedure Button1Click(Sender:TObject);
var 
  Query : TQuery;
  StringStream : TStringStream;
begin
  StringStream := TStringStream.Create ('');
  Memo.Lines.SaveToStream (StringStream); //在这里创建一个字符流
  StringStream.Position := 0;
  Query := TQuery.Create(self); //在这里创建一个临时的Query
  Query.DatabaseName := Database.DatabaseName;
  with Query.SQL do
    begin
      Clear;
      Append ('INSERT INTO TEST');
      Append ('(ID,CONTENT)'); //CONTENT是一个Image字段
      Append ('VALUES (:ID, :CONTENT)');
    end;
  with Query do
    begin
      ParamByName ('ID').asInteger := StrToIntDef (edtID.Text,0);
      ParamByName ('CONTENT').asBlob := StringStream.DataString; //就在这里赋值
    end;
  StringStream.Free; //用完了马上Free掉
  Database.StartTransaction; //开始事务控制
  try
    Query.ExecSQL; //开始插入记录
    Database.Commit; //提交事务
  except
    Query.Free; //如果出错首先将Query Free掉
    Database.RollBack; //回退事务
    raise; //重新引发异常，以通知用户
  end;
  Query.free;
end;