[badtrips]

Подскажите кто может в таком вопросе!
у меня есть задание
"Определить базовый класс с именем Tbase и полями данных
определенными в варианте задания. Включить в класс методы,
обеспечивающие:
-заполнение полей данных;
-отображение (вывод ) полей данных;"
я делал так

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Parent,StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Sportsmen:Tbase;
implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
//
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//
end;

{$R *.dfm}
begin
Sportsmen:=Tbase.Create;
end.

в модуле parent такое описание -

Код:

unit Parent;

interface

type
  Tbase=class
private
  constructor Create;
public
  fSurname:ShortString;
  fName:ShortString;
  procedure Vvod;
  procedure Vyvod;
  end;

implementation

constructor Tbase.Create;
begin
  fSurname:='';
  fName:='';
end;

procedure Tbase.Vvod;
begin
//
end;

procedure Tbase.Vyvod;
begin
//
end;

end.

когда я хочу в процедуде Tbase.Vvod написать fName:=edit1.text и вставить это в обработчик нажатия кнопки 1 - это ошибка.Никак не могу понять как действовать в таком случае.Содя по заданию мне ввод и вывод нужно сделать в методах класса.Возможно я не так что то понимаю.Подскажите!Давно уже с этим бьюсь..