Saubere Programmierung?

[Delphieinsteiger]

Danke für die Tipps,
aber bleibt bei euren Lösungen nicht die mousemovefunktion ausser Betracht?Ich möchte halt wenn ich mit der maus in dem Pixelbereich von 0..95 komme auch die Werte von 0..95 aus dem Testarray dem Test1array zuweisen.Wenn ich in den Pixelbereich von 96..191 komme auch diese Werte zuweisen.Deswegen hatte ich die Caseanweisung.Oder vertue ich mich da jetzt?Bin leider noch nicht so erfahren.Die Werte hatten jetzt noch nicht gestimmt weil ich nur das prinzip verstehen wollte,es sind auch nicht 8000 sondern 7968 Werte.Halt immer 96 Werte sollen von dem einen in den anderen Array zugewiesen werden.