Application.MessageBox引用ORAQUERY的结果怎么弄？

Question

Application.MessageBox('+'''+self.OraDS_Co. '提示')
说具体点就是，application.MessageBox('QUERY1.RECORD至QUERY2.RECORD 记录已经存在，确定覆盖么？','提示',MB_YESNO)=IDYES then
在线等。很急

Answer 1

var
  si1,si2 : Integer;
  str : String;
begin
  si1 := IntToStr(QUERY1.RECORD));
  si2 := IntToStr(QUERY2.RECORD);
  str := si1+'到'+si2 + '记录记录已经存在，确定覆盖么？';
  if application.MessageBox(str,'提示',MB_YESNO)=IDYES then
    begin
    end;
end;

Answer 2

'QUERY1.RECORD至QUERY2.RECORD 记录已经存在，确定覆盖么？'改为
pchar(inttostr(QUERY1.RECORD)+inttostr('QUERY2.RECORD)+'记录已经存在，确定覆盖么？')

Answer 3

问题就是我QUERY1.后面点不出那个RECORD来   晕     大家帮忙下啊

Answer 4

 application.MessageBox(str,'提示',MB_YESNO)=IDYES ===
这样可以吗 application.MessageBox(PChar(str),'提示',MB_YESNO)=IDYES 
好像是这样的吧