Hier muss ein Ereignis ausgewertet werden und zwar das Klicken der Radio-Buttons.. Deshalb müssen Diese Befehle unter RadiobuttonXclick eingefügt werden:
Delphi-Quellcode:
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if radioButton1.checked then typ := RadioButton1.Caption;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if radioButton2.checked then typ := RadioButton2.Caption;
end;