Und gewöhn dir mal eine "ordentliche" Codeformatierung an.
Hab jetzt erst zufällig gesehn, da da ganz bestimmt noch ein paar END fehlen.
Zitat:
Delphi-Quellcode:
procedure TForm1.btnrechnenClick(Sender: TObject);
...
begin
...
if Form1.rgGeschlecht.ItemIndex ...
Du bist schon in TForm1, als lass' um Himmels Willen die Finger von der globalen Variable
(
Form1.
weglassen oder
Self.
verwenden)