Помогите написать процедуру на кнопку

[evrey]

Дана процедура помогите к ней написать регистрацию которая содержит
имя,фамилия,группа.ПРоцедура в приложении.Пожалуйста
помогите!

procedure TForm1.N3Click(Sender: TObject);
begin
case Button1.tag of
0: begin
Button1.caption:='Дальше';
Button1.tag:=1;
RadioButton5.Checked:=TRUE;
// вывод первого вопроса
Button1.Enabled:=False;
ResetForm;
VoprosToScr;
end;
1: begin // вывод остальных вопросов
summa:=summa+score[otv];
RadioButton5.Checked:=TRUE;
Button1.Enabled:=False;
ResetForm;
if not eof(f)
then VoprosToScr
else
begin
summa:=summa+score[otv];
closefile(f);
Button1.caption:='Ok';
Form1.caption:='Результат';
Button1.tag:=2;
Button1.Enabled:=TRUE;

end;
end;

end;

end;

[Патрон]

что-то я чуть чуть не понял можно поподробнее? что именно нужно?