1:
2:
3:
4:
5:
6:
7:
8:
9:

  with StartForm.ADOQuery1 do begin
    with SQL do begin
      Clear;
      Add('SELECT *');
      Add('FROM foo');
      Add(Format('WHERE ID=''%d''',[bar]);
    end;
    Open;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

with StartForm.AbfrageDataSet do begin
  Active := False;
  CommandText := Format('SELECT * FROM foo WHERE ID=''%d''',[bar]);
  Active := True;
  with Recordset.Fields do begin
   // Über Item['Spaltenname'] kann ich jetzt auf die einzelnen Felder zugreifen.
   // (Und sie ggf. einem Editfeld zuordnen.)
   // Natürlich geht das nur, wenn nur ein Datensatz existiert.
   // Bei mehreren Datensätzen muss man den Cursor weitersetzen (Next)
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure Query1AfterSroll(DataSet: TDataSet);
{bzw procedure Table1AfterSroll(DataSet: TDataSet);}
begin
  Edit1.Text := DataSet.FieldByName('Bla').Text;
  Edit2.Text := DataSet.FieldValues['dumdidum'];
  EditXYZ.Text := DataSet.FieldByName('irgendwas').Value;
  ...
end;