AdoQuery1.SQL.Text := 'Select codigo, fecha, itebis From itebis '+
' where codigo = '+Edit1.Text;
AdoQuery1.Active := True;
Edit2.text:= AdoQuery1.Fields[0].AsString;
Edit3.text:= AdoQuery1.Fields[1].AsDate;
Edit4.Text:= AdoQuery1.Fields[2].AsString;