Code vereinfachen

[R2009]

Hi DP'ler,
ich möchte folgenden Code vereinfachen:

Delphi-Quellcode:

  for i:=1 to 6 do
     begin
       a.clear;
       main_form.central.db.get_data('binbase','versacom_control_r'+inttostr(i),a);
       case i of
       1:edt_sb_1.Text:=inttostr(invhexw(a[0]));
       2:edt_sb_2.Text:=inttostr(invhexw(a[0]));
       3:edt_sb_3.Text:=inttostr(invhexw(a[0]));
       4:edt_sb_4.Text:=inttostr(invhexw(a[0]));
       5:edt_sb_5.Text:=inttostr(invhexw(a[0]));
       6:edt_sb_6.Text:=inttostr(invhexw(a[0]));
       end;
     end;

Ich würde gerne die 1 in edt_sb_1.Text durch die Laufvariable i ersetzen.
Grüsse
Rainer