用的是ＭＰＩ通讯，调用的是ＰＲＯＤＡＶＥ函数。程序是这样写的：
procedure TMain.DBGrid3DblClick(Sender: TObject);
var
char1,char2:string;
begin
char1:='';
char2:='';
char1:=adoquery6['THREE'];
char1:=Trim(char1);
DBD_Write(120,0,10,char1);
adoquery6.First ;
char2:=adoquery6['THREE'];
while char1<>char2 do
begin
adoquery6.Delete;
adoquery6.First ;
char2:=adoquery6['THREE'];
end;
end;
end.

其中ＤＢＤ＿Ｗrite()函数是封装的，我对char1:='01233455666'可以写入到ＤＢ１２０里面，但是
char1:=adoquery6['THREE'];却不行，用edit1.text:=adoquery[6]发现是正确的，就是写不下去;