[lmikle]

Ну так и напиши код, который их будет создавать...

Код:

var
  FDQuery : TQuery;
  FDataSource : TDataSource;

procedure TForm1.Button1Click(Sender : TObject);
begin
  if not Assigned(FDQuery) Then FDQuery := TQuery.Create(Nil);
  if not Assigned(FDataSource) Then FDataSource := TDataSource.Create(Nil);
end;

procedure TForm1.Button2Click(Sender : TObject);
begin
  if Assigned(FDQuery) Then FreeAndNil(FDQuery);
  if Assigned(FDataSource) Then FreeAndNil(FDataSource);

end;