Odczyt / Zapis w plikach odczytywalnych przez delphi

Pisze program który potrafi odczytać / zapisać stałe w plikach Delphi(*.pas) w postaci:

{Tutaj moje komentarze}
unit {nazwa unita z Savedialoga / opendialoga}

interface

const

//tutaj stałe liczbowe w schemacie clNazwa = ${8 znaków hexowych};
//dowolna liczba tych stałych

implementation

end;

I jak to zrobić? Z zapisem może sobie poradzę ale co z odczytem?

nie mzoesz zrobic petelki od np "var"

do implementation lub function lub procedure ?
i dodawac wszystko a potem dzielic stringi?

jakby cos to na gg

Jakiś kodzik można prosić? Akurat jestem w kryzysowym położeniu intelektualnym i niemam żadnych pomysłów...