[biashka]

Код:

begin
DataModule2.ibquery1.Close;
 DataModule2.ibquery1.sql.Text:='select fAM,DOLZID FROM SOTR';
    DataModule2.IBQuery1.Open;
    ComboBox1.Items.Clear;
    WHILE NOT DataModule2.IBQuery1.Eof do
    begin
    // DBEdit1.Text.record(datamodule2.ibquery1.FieldValues['dolzid'];
   // edit1.Update
    ComboBox1.Items.Add(DataModule2.IBQuery1.Fields[0].AsString);

   // edit1.Text:=DataModule2.IBTable6DOLZID.AsString;
    DataModule2.ibquery1.next;
     if ComboBox1.text=DataModule2.IBTable6FAM.Value then edit1.Text:=DataModule2.IBTable3NAIM.Value
    end;
    while (not DataModule2.ibtable6.Eof  ) do
    {  while(not  sotr.DBGrid1.DataSource.DataSet.EOF) do }
begin
     if  DataModule2.IBTable6FAM.Value=ComboBox1.Text
     then edit1.Text:= DataModule2.IBTable3NAIM.Value  ;
//sotr.DBGrid1.DataSource.DataSet.Next
DataModule2.ibtable6.Next
end

Админ: Пользуемся тегами при оформлении кода!