Перевод строки

[Waqq]

Здравствуйте подскажите пожалуйста
как можно перевести считаную строку в класс
например

type
TClass=Class

end;

var
S:string;
f:Textfile;
cl:TClass;

begin
   AssignFile(f, 'c:\Fille.txt');
   Reset(f); 
   Readln(f, s);
   Closefile(f); 

s:=Cl;

в заранее благодарен.