是一个指针,比如:
procedure TForm1.Button1Click(Sender: TObject);
  procedure A(t: TAdoQuery);
  begin
    t.Next;
  end;
begin
   A(AdoQuery1);
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————