كيف يتم تغيير هوامش الطباعة برمجيا بحيث تختلف من سجل لأخر

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
لقد وضعت هذا الكود لتغيير هوامش ورقة الطباعة
على تختلف من سجل لأخر
يعني السجل الأول يكون هوامش ورقة طباعته كما يلي
يمين = 1.50 سم
يسار = 1.00 سم
والسجل الثاني
يمين = 3.00 سم
يسار = 1.00 سم
والسجل الثالث
يمين 1.50 سم
يسار = 2.00 سم
وهكذا إى أن أنهي من عدد السجلات
ها هو الكود الذي استعملته لكن يأخذ القيمة الأولى فقط
إذا كان هناك خطأ في الكود افيدونا حفظكم الله

PHP كود :

procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  with form1 do begin
    table1.First;
    while not table1.Eof do begin
    table1.Edit;
    If table1.FieldByName('Code').AsString='1' then
      QuickRep1.Page.LeftMargin:=10;
      QuickRep1.Page.RightMargin:=20;
    If table1.FieldByName('Code').AsString='2' then
      QuickRep1.Page.LeftMargin:=20;
      QuickRep1.Page.RightMargin:=10;
    table1.Post;
    table1.Next;
    end;
  end;
end;