obtener campo de varios obtenidos de sql mediante un cursor

[jesusvp]

no me muestra ninguna informacion

Query1.sql.Text := ' IF @@FETCH_STATUS = 0 BEGIN FETCH NEXT FROM contact_cursor END ELSE BEGIN CLOSE contact_cursor DEALLOCATE contact_cursor END';
Query1.ExecSQL;
edit1.text :=Query1.FieldByname('venta_id').AsString;

no se si me puedas decir como muestro toda la informacion del query en un edit para verificar que este leyendo la informacion que obtiene del cursor del sql server, gracias por molestarte en contestarme :-)