procedure TEditForm.RadioButtonCLick(Sender: TObject);
begin
    CurrentRadioButton := (Sender as TRadioButton).tag;
end;