_DS := FindDataSet('det');
_DS.First;
While not _DS.Eof do
begin	
	%s
	_DS.Next;
end;