Делфи ComboBox и ListBox

[ТанюшкаXXX]

Здравствуйте обитатели форума! У меня проблемы с занесением строк в КомбоБокс и выписания из КомбоБокса в ЛистБок нужных мне строк.
Задача такая, что я хочу занести в КомбоБокс ФИО студентов и их оценки по 3 предметам, потом нужно выписать фамилии тех у кого 2пятерки и 1четверка.

Ошибок много ...
Не знаю как правильно записать не одного студента, нужно ли использовать массив? --> от сюда идут ошибки с типами,
Как правильно вытащить из КомбоБокса строку (я хочу в if сравнивать значения предметов и если подходит все под мои требования, то выводить)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button2: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Button3: TButton;
    ComboBox1: TComboBox;
    Label6: TLabel;
    Edit5: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Student: array [1..1000] of string;
  a,b,c,d: string;
  n: integer;

implementation
{$R *.dfm}

  procedure TForm1.Button1Click(Sender: TObject);
  begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  end;

procedure TForm1.Button2Click(Sender: TObject);
  var ItemsIndex,i :integer;
      a,b,c,d: string;
begin
 ListBox1.Items.Clear ;// очищаем LisBox
 i:=ComboBox1.ItemIndex+1; //начинаем считывать-порверять с первых оценок
While i<>length do // пока не конец строки
 begin
  if (ComboBox1.ItemsIndex[i]=5) and (ComboBox1.ItemsIndex[i+1]=5) // если 5|5|4
   and (ComboBox1.ItemsIndex[i+2]=4) or                              // или 5|4|5
   (ComboBox1.ItemsIndex[i]=5) and (ComboBox1.ItemsIndex[i+1]=4)    // или 4|5|5
   and (ComboBox1.ItemsIndex[i+2]=5) or
   (ComboBox1.ItemsIndex[i]=4) and (ComboBox1.ItemsIndex[i+1]=5)
   and (ComboBox1.ItemsIndex[i+2]=5)
  then   // то выводим нужную фамилию :
     begin
       ListBox1.Items.Add(Student[i]);
     end;
 end;

procedure TForm1.Button3Click(Sender: TObject);
var m: integer;
 begin
n:=strToInt(Edit5.Text);// сколько студентов введется
for m:=1 to n do //записываем данные в массив и в comboBox1
 //заносим ФИО и оценки по 3 предметам
 ComboBox1.Items.Add.Student[a](Edit1.Text);
 ComboBox1.Items.Add.Student[b](Edit2.Text);
 ComboBox1.Items.Add.Student[c]Edit3.Text);
 ComboBox1.Items.Add.Student[d](Edit4.Text);
end;

end;

[Replicant]

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Generics.collections;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TStudent = class
  public
    Name: String;
    o1, o2, o3: integer;

    function getSum: integer;
    function getStr: string;

    constructor create(AName: String; Ao1, Ao2, Ao3: integer);
  end;

var
  Form1: TForm1;
  StudentList: TList<TStudent>;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
//Кнопка добавить студента
begin
  StudentList.Add(TStudent.create(Edit1.Text,   //Фамилия
    StrToInt(Edit2.Text),   //Оценка 1
    StrToInt(Edit3.Text),   //Оценка 2
    StrToInt(Edit4.Text))); //Оценка 3
    //пихаем студента в ComboBax
  ComboBox1.Items.Add(StudentList.Items[StudentList.Count - 1].Name);
  Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear;
end;

{ TStudent }

constructor TStudent.create(AName: String; Ao1, Ao2, Ao3: integer);
begin
  Name := AName;
  o1 := Ao1;
  o2 := Ao2;
  o3 := Ao3;
end;

procedure TForm1.Button2Click(Sender: TObject);
//Выбираем студентов с оценками 2х5+4 = 14
var i: integer;
const oValue: integer = 14;
begin
  ListBox1.Clear;
  for i:=0 to StudentList.Count-1 do
    if StudentList.Items[i].getSum = oValue then
        ListBox1.Items.Add(StudentList.Items[i].Name);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.Items.Count > 0 then
    Form1.Caption := StudentList.Items[ComboBox1.ItemIndex].getStr;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StudentList := TList<TStudent>.create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  StudentList.Free;
end;

function TStudent.getStr: string;
begin
  Result:= Name +' '+ o1.ToString+' '+ o2.ToString+' '+ o3.ToString;
end;

function TStudent.getSum: integer;
begin
  Result:= o1+o2+o3;
end;

end.