Wenn ich das richtig verstanden habe möchtest Du das Object vom Typ TAdoQuery in einer procedure übergeben ! (bzw. einen Zeiger darauf)
Das wäre dann wie folgt :
Delphi-Quellcode:
//declaration
...
procedure DuplicateRecord(MyQuery: TADOQuery);
...
//implementation
...
procedure TForm1.DuplicateRecord(MyQuery: TADOQuery);
var i,max: integer;
begin
max := MyQuery.fields.count - 1;
...
end;
//Aufruf der procedure :
DuplicateRecord(DataModule1.MyQuery)