MatForm.ADOQuery1.Close;
if MatForm.ADOQuery1.SQL.Text='select pm from unr where obm='+RedactorMatForm.OBMTextEdit.Text+' and pm=1' then begin
MatForm.ADOQuery1.Open;
RedactorMatForm.WspomogRadioButton.Checked:=true;
RedactorMatForm.OsnRadioButton.Checked:=false;
end else
MatForm.ADOQuery1.Close;
if MatForm.ADOQuery1.SQL.Text='select pm from unr where obm='+RedactorMatForm.OBMTextEdit.Text+' and pm=0' then begin
MatForm.ADOQuery1.Open;
RedactorMatForm.WspomogRadioButton.Checked:=false;
RedactorMatForm.OsnRadioButton.Checked:=true;
end;