Děkuji. Toho rozbalovacího seznamu jsem si nevšiml, to je paráda. Ale to volání funkce nechce fungovat. Kontroluji to s nastavením

if ComboBox1.ItemIndex=1 then tform1.Button4Click(Sender);

a píše to

unit1.pas(252,54) Error: Wrong number of parameters specified for call to "Button4Click"
unit1.pas(123,18) Hint: Found declaration: TForm1.Button4Click(TObject);
unit1.pas(259) Fatal: There were 1 errors compiling module, stopping

Prošel jsem si celou kapitolu učebnice o funkcích a procedurách a nic jsem nenašel co bych mohl dělat špatně.