Помощь в Delphi

[Balder]

Привет всем кто увидел моё сообщение, мне срочно нужна помощь, буду премного благодарен тем кто поможет. Суть мой проблемы в том что мне нужны подробные комментарии к части кода, так как я не особо разбираюсь в этом, а точнее я понимаю что тут написано и что происходит, но не могу корректно это объяснить, вот сам код:

procedure TForm1.ToolButton4Click(Sender: TObject);
var
    f, s :String;
begin
//Фильтр поиска
    if ComboBox2.ItemIndex>-1 then begin
    if ComboBox2.ItemIndex=0 then f:='Фамилия';
    if ComboBox2.ItemIndex=1 then f:='Имя';
    if ComboBox2.ItemIndex=2 then f:='Отчество';
    if ComboBox2.ItemIndex=3 then f:='Должность';
    s:='%'+Edit2.Text+'%';
    DataModule3.ADOQuery1.Active:=false;
    DataModule3.ADOQuery1.SQL.Text:='SELECT * FROM педагог WHERE '+f+' like "'+s+'"';
    DataModule3.ADOQuery1.Active:=true;
    StatusBar1.Panels.Items[3].Text:='Фильтр по: ' +ComboBox1.Text;
end;
end;