В общем:
1. Создаём некий Unit2
2. Подключаем его (
uses Windows, .....,
Unit2)
3. В Unit2 копируем после
implementation код процедуры.
4. В том же Unit2 копируем объявление процедуры в блок ДО
implementation
5. P-R-O-F-I-T!
6. Если не профит - подключаем необходимые
uses в Unit2.
7. см. п. 5.
P.S.
Возьми учебник, что ли... >>
3643447A354F44772F4344783565482F494F2F75494F507536 2B3769355334754C673D3D