Запись в таблицу

[Omg Zomg]

Доброго времени суток!
вобщем такая задача:
Написать программу-систему учета оценок студента. Таблица, в ней 2 графы: предмет и оценка. Возможность добавлять предмет. В комбо-боксе должны выбрать, экзамен по предмету или зачет. Если зачет, то в графе «оценка» пишется зачет. Если экзамен, то оценка (цифрами).

Сделал 2 формы. На одной таблица,где будут отображаться записи о студентах (ListView). На второй форме вводятся данные о студентах.
Внимание,вопрос! Как сделать так,чтобы введеная инфа на 2-ой форме отобразилась на первой в ListView?

Код могу предоставить
1-ая форма:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure N6Click(Sender: TObject);

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  unit2;
{$R *.dfm}

procedure TForm1.N6Click(Sender: TObject);
begin
  form2.Visible := true;
end;

end.

2-ая форма

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    surname: TLabeledEdit;
    name: TLabeledEdit;
    subject: TLabeledEdit;
    ComboBox1: TComboBox;
    okButton: TButton;
    Button2: TButton;
    mark: TLabeledEdit;
    procedure Button2Click(Sender: TObject);
    procedure markChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;


implementation

uses Unit1;
 var
 surname:tlabelededit;
 name:tlabelededit;
 group:tlabelededit;
 Combobox1:Tcombobox;
{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm2.markChange(Sender: TObject);
begin
if combobox1.Text='Зачет' then
mark.Text:='Зачтено';

end;

end.