Преобразование string в word и string в byte

procedure TForm1.Button1Click(Sender: TObject);
Var slug: tSlug;
    i:integer;
    o: word;
    p: word;
  begin
  //  o:=integer(Edit6.Text);
   // p:=integer(Edit7.Text);
    With slug do
    begin
     namfam:=Edit1.Text;
     for i:=0 to ComboBox1.Items.Count-1 do begin
     if (ComboBox1.ItemIndex = i) then
     date:=StrToInt(ComboBox1.Items.Strings[i]);
     end;
     Case RadioGroup1.ItemIndex Of
          0:sex:=man;
          1:sex:=woman;
     end;
    // dolgn:=Edit2.Text;
    // dolgn.prof:=Edit3.Text;
     dolgn.prof.name:=Edit4.Text;
     dolgn.prof.stag:=Edit5.Text;
   //  dolgn.prof.doxod:=Edit6.Text;
     dolgn.prof.doxod.osn:=Edit7.Text;
     dolgn.prof.doxod.premiya:=Edit8.Text;
    // dolgn.prof.doxod.nalog:=(o + p)*0.13;
     dolgn.telef:=StrToInt(Edit10.Text);
     end;
     Write(f,slug);
     CloseFile(f);
    end;