перевести процедуру

Вот эту процедуру не могу понятьОна должна читать из бинарного потока данные и заполнять ими поле Text

Имеется вот такая процедура чтения строки из бинарного файла(Delphi):