用DataSource1和你的query连接好
在DBGrid1CellClick事件(也就是DBGrid的事件中加显示就可以了)
procedure TFrm_Fixlend.RzDBGrid1CellClick(Column: TColumn);
begin
with Fixlend_ADOQuery do
begin
if RecordCount > 0 then
begin
Edit1.Text := Trim(FieldByName('FL_Number').AsString);
Edit10.Text := Trim(FieldByName('F_Number').AsString);
ComboBox1.Text := Trim(FieldByName('FL_Depart').AsString);
end;
end;
end;