with OracleQueryStatus do begin
SetComplexVariable('O_MANUF_REFCURSOR', OracleQueryStatusManuf);
Execute;
if GetVariable('RESULT') = 0 then begin
MfArray := TMfArray.Create;
with OracleQueryStatusManuf do begin
Execute;
while not Eof do begin
MfRecord := TMfRecord.Create;
MfRecord.Manufacturer := Field('MANUFACTURER');
ShowMessage(Field('MANUFACTURER'));
MfRecord.Status := Field('STATUS');
MfArray.Add(MfRecord);
Next;
end;
end;
end;
end;