Saubere Programmierung?

[Delphieinsteiger]

Hallo,

ich wollte fragen, ob vieleicht jemand eine saubere Programmierung hierfür weiß:

Delphi-Quellcode:

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var
K:integer;

Begin
     case x of
     0..96:
Begin
     for K:=0 To 96 Do
     Test1[k]:=Test[k];

     97..192:
Begin
     for K:=97 To 192 Do
     Test1[k]:=Test[k];

usw. in 96- Schritten bis 8000

Ich möchte halt die Werte aus dem Test array in der sich die 8000 Werte befinden immer in 96 Werte aufteilen und dem Test1 array zuweisen.So wie es ist funktioniert auch alles wunderbar, aber ich möchte nicht einen so langen Quelltext haben nur damit ich anhand der mousemovefunktion Werte zuweise.Vieleicht hat jemand eine Idee wie man das eleganter lösen kann.

[edit=SirThornberry]code-Tags durch Delphi-Tags ersetzt - nächstes mal bitte selbst richtig setzen - Mfg, SirThornberry[/edit]