var
Dzialanie := Tag;
//Obsługę zdarzeń przycisków 1-4 oraz 16 ustaw na tą procedurę
procedure TForm1.Button1Click(Sender: TObject);
begin
dzialanie:= (Sender as TComponent).Tag;
skladnik:=strtofloat(edit1.Text);
Podaj_X(skladnik);
Edit1.Clear;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
skladnik:=strtofloat(Edit1.Text);
Podaj_Y(skladnik);
case dzialanie of
1: Dodawanie;
2: Odejmowanie;
3: Mnozenie;
4: Dzielenie;
5: Dzielenieprzez_x;
edit1.Text:=floattostr(Wyswietl_wynik);
end;
//Zdarzenia przycisków 5-14 ustaw na tą procedurę
procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+(Sender as TButton).Caption;
end;
[dopisane - ups [wstyd] Znowu nie ten przycisk. Sorry. To jest zamiast tego kodu w programie głównym. Błędy miałeś, bo np. w case porównywałeś łańcuch, co jest niedopuszczalne. Jedynie typy porządkowe można - m.D.]