bei dem hier gezeigten Code hast du
Unit 2 in
Unit eins eingebunden,
aber um von Unit1 auf etwas in Unit1 zugreifen zu können, müßtest du die Unit1 in der Unit2 (
Uses Unit1; einbinden.
Aber es wäre natürlich besser, wenn du diese Prozedur in eine andere
Unit verlegst,
Unit eins, welche bei dir wohl eine/die Hauptunit sein wird, eignet sich nicht sonderlich gut für sowas.