Функция findfirst(); Опции

[Polymorph]

Как сделать так, чтобы функция findfirst(); найденный файл прикрепляла к переменной типа text? Помогите, а то я уже замучился совсем! ??? ???

[Polymorph]

a : text;
d : searchrec;
findfirst ('c:a.pas', anyfile, d);
{а здесь нужна мне процедура, которая прилепит найденный файл}
{a.pas к переменной a}