void __fastcall TForm1::Button2Click(TObject *Sender)
{
	String wynik, imie, nazwisko, data;
	int waga, liczba;

	IBTable2->First();
	waga = IBTable2->Fields->FieldByName("waga")->AsInteger;

	while (! IBTable2->Eof)
	{
		if (waga > IBTable2->Fields->FieldByName("waga")->AsInteger) {
			nazwisko = IBTable2->Fields->FieldByName("nazwisko")->AsString;
			imie = IBTable2->Fields->FieldByName("imie")->AsString;
			data = IBTable2->Fields->FieldByName("data_ur")->AsString;
			waga = IBTable2->Fields->FieldByName("waga")->AsInteger;
		}
		IBTable2->Next();
	}

	liczba=0;
	wynik="";

	IBTable2->First();

	while (! IBTable2->Eof)
	{
		if (waga==IBTable2->Fields->FieldByName("waga")->AsInteger) {
			liczba=liczba+1;
		}
		IBTable2->Next();
	}

	if (liczba > 1) {

		IBTable2->First();

		while (! IBTable2->Eof)
		{
			if (waga==IBTable2->Fields->FieldByName("waga")->AsInteger) {
				nazwisko = IBTable2->Fields->FieldByName("nazwisko")->AsString;
				imie = IBTable2->Fields->FieldByName("imie")->AsString;
				data = IBTable2->Fields->FieldByName("data_ur")->AsString;

				wynik=wynik + nazwisko + " " + imie + " " + data + ", ";
			}
		IBTable2->Next();
		}
	} else {
     	wynik=nazwisko + " " + imie + " " + data;
	}

	Label4->Caption=wynik;

}