سلام
همه شما با دستور With آشنایی دارید.
به کد زیر توجه کنید:
  with Memo1 do

  begin



    With Lines do

    begin

      Add('Line 1');

      Add('Line 2');

    end;



  end;


کد بالا یک معادل جالب هم دارد که شاید افراد بسیاری کمی از آن اطلاع داشته باشند. جالب است بدانید که کد زیر دقیقاً معادل کد بالا است:
  with Memo1, Lines do

  begin

    Add('Line 1');

    Add('Line 2');

  end;


منبع:
http://www.nickhodges.com/post/How-N...tatements.aspx