procedure TForm7.FormActivate(Sender: TObject);
var st:string;
begin
  (*
select res from examen
where sem_key in
    (select sem_key from sem_his
    where his_key in
        (select his_key from year_his
        where st_id in
            (select st_id from fio
            where surname='' and name='')))
    *)

    Edit1.Text:=Form6.ADODataSet1.FieldValues['surname'];
    Edit2.Text:=Form6.ADODataSet1.FieldValues['name'];
    ADODataSet1.Active:=false;
    ADODataSet1.CommandText:='select res from examen '+
    'where sem_key in '+
    '(select sem_key from sem_his '+
    'where his_key in '+
    '(select his_key from year_his '+
    'where st_id in '+
    '(select st_id from fio '+
    'where surname='+''''+Edit1.Text+''''+
    ' and name='+''''+Edit2.Text+''''+')))';
    ADODataSet1.Active:=true;
end;