Помогите сделать проект по Delphi ПОЖАЛУЙСТА...

Вот! (Только не стал утруждать себя разными занятиями - весь день изучаем 1 предмет! )
procedure TForm1.FormCreate(Sender: TObject);
procedure ShowCheck;
var
D : Byte;
begin
ListBox1.Clear;
if RadioButton1.Checked then D := 1;
if RadioButton2.Checked then D := 2;
if RadioButton3.Checked then D := 3;
if RadioButton4.Checked then D := 4;
if RadioButton5.Checked then D := 5;
if RadioButton6.Checked then D := 6;
case D of
1: begin
ListBox1.Items.Add('1. Физ-ра');
ListBox1.Items.Add('2. Физ-ра');
ListBox1.Items.Add('3. Физ-ра');
ListBox1.Items.Add('4. Физ-ра');
ListBox1.Items.Add('5. Физ-ра');
ListBox1.Items.Add('6. Физ-ра');
end;
2: begin
ListBox1.Items.Add('1. Алгебра');
ListBox1.Items.Add('2. Алгебра');
ListBox1.Items.Add('3. Алгебра');
ListBox1.Items.Add('4. Алгебра');
ListBox1.Items.Add('5. Алгебра');
ListBox1.Items.Add('6. Алгебра');
end;
3: begin
ListBox1.Items.Add('1. Физика');
ListBox1.Items.Add('2. Физика');
ListBox1.Items.Add('3. Физика');
ListBox1.Items.Add('4. Физика');
ListBox1.Items.Add('5. Физика');
ListBox1.Items.Add('6. Физика');
end;
4: begin
ListBox1.Items.Add('1. Литература');
ListBox1.Items.Add('2. Литература');
ListBox1.Items.Add('3. Литература');
ListBox1.Items.Add('4. Литература');
ListBox1.Items.Add('5. Литература');
ListBox1.Items.Add('6. Литература');
end;
5: begin
ListBox1.Items.Add('1. История');
ListBox1.Items.Add('2. История');
ListBox1.Items.Add('3. История');
ListBox1.Items.Add('4. История');
ListBox1.Items.Add('5. История');
ListBox1.Items.Add('6. История');
end;
6: begin
ListBox1.Items.Add('1. География');
ListBox1.Items.Add('2. География');
ListBox1.Items.Add('3. География');
ListBox1.Items.Add('4. География');
ListBox1.Items.Add('5. География');
ListBox1.Items.Add('6. География');
end;
end;
end;
begin
ShowCheck;
end;
Что с формой:
- На форму кладёшь 6 - RadioButton и 1 - ListBox
- Располагаешь их как тебе нужно
- RadioButton-ы подписываешь с "понедельника" по "субботу"
- На OnShow формы вешаешь процедуру (смотри выше)
- На OnClick каждого RadioButton выбираешь её-же

Стучи в агент.

помогу)