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

السلام عليكم ورحمة الله تعالى وبركاته

لقد وضعت هذا الكود لتغيير هوامش ورقة الطباعة

على تختلف من سجل لأخر

يعني السجل الأول يكون هوامش ورقة طباعته كما يلي

يمين = 1.50 سم

يسار = 1.00 سم

والسجل الثاني

يمين = 3.00 سم

يسار = 1.00 سم

والسجل الثالث

يمين 1.50 سم

يسار = 2.00 سم

وهكذا إى أن أنهي من عدد السجلات

ها هو الكود الذي استعملته لكن يأخذ القيمة الأولى فقط

إذا كان هناك خطأ في الكود افيدونا حفظكم الله

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;