If frmMDI=nil then
frmMDI=TfrmMDI.create(self);
frmMDI.RichEdit1.lines.Clear;
frmMDI.RichEdit1.lines.add('你的查询结果');
frmMDI.show;
frmMDI=TfrmMDI.create(self);
frmMDI.RichEdit1.lines.Clear;
frmMDI.RichEdit1.lines.add('你的查询结果');
frmMDI.show;
beign
{ .... }
end;
begin
{...}
end;
begin
{...}
end;