компилятор - Lazarus
Код


         Type
  ObjString = class(TObject)
       Private
    Fst: String;
   public
   Function isRest: Boolean;
    Function Tru(Len: byte): String;
    Procedure tese(Var s1, s2: String; Wh: Byte);

вот есть класс надо сделать ввод из поля ввода edit1 в поле класса Fst. как это сделать не подскажете?