combobox4.Clear; Dmodulo.municipio.SQL.Clear ; Dmodulo.municipio.SQL.Add('select * from municipio where municipio=:A'); Dmodulo.municipio.ParamByName('A').Value:=combobox3.Text; Dmodulo.municipio.Open; edit5.Text:=Dmodulo.municipio.FieldByName('CODIGOM').Value; Dmodulo.parroquia.SQL.Clear ;
Dmodulo.parroquia.SQL.Add('select * from parroquia where CODIGOM=:A'); Dmodulo.parroquia.ParamByName('A').Value:=edit5.Text; Dmodulo.parroquia.Open; Dmodulo.parroquia.First; while not Dmodulo.parroquia.Eof do begin
combobox4.Items.Add(DMODULO.parroquia.FieldByName('parroquia').AsString) ;
Dmodulo.parroquia.Next; end;