Sziasztok!
Az lenne a kérdésem hogy ezeket a sorokat valaki eltudná magyarázni hogy mit csinál?

procedure TForm1.felvetel(sender: Tobject);
begin
if sender = tag_felvetel then
begin
With ADOQuery1 Do
begin
Insert;
FieldByName('nev').Value := edit1.Text;
FieldByName('szul_datum').Value := datepicker1.DateTime;
FieldByName('cim').Value := edit3.Text;
Post;
end;
end
else if sender = jarmu_felvetel then
begin
With ADOQuery2 Do
begin
Insert;
FieldByName('tipus').Value := edit4.Text;
FieldByName('szin').Value := edit5.Text;
FieldByName('rendszam').Value := rendszamellenorzes(edit6.Text);
FieldByName('vizsga').Value := datepicker2.DateTime;
FieldByName('uzemanyag').Value := combobox1.Text;
Post;
end;